Beta Shell v2.0

Beta Shell v2.0 · web2.us.cloudlogin.co

[FM] [CMD] [PHP] [DB] [INFO] [SEC]

File Manager

~ /usr/share/doc/perl-IO-All/example

3 items

Name	Size	Perms	Modified	Actions
[ .. / .. ]
create-cat-to.pl	252 B	-rw-r--r--	2017-07-18 21:05:58	Edit Del

Editing: create-cat-to.pl (252 B)

Path: /usr/share/doc/perl-IO-All/example/create-cat-to.plBack

#!/usr/bin/perl

# create-cat-to.pl
# cat to a file that can be created.

use strict;
use warnings;

use IO::All;

my $filename = shift(@ARGV);

# Create a file called $filename, including all leading components.
io('-') > io->file($filename)->assert;