Help for this page

Select Code to Download


  1. or download this
    use File::Basename qw(dirname);
my $script_dir = dirname($0);
my $path = "$script_dir/Pandoras Box/$file.txt";
...
  2. or download this
    chomp(my $file =uc(<STDIN>));
my $path = "./Pandoras Box/$file.txt";
open FILE, '>>', $path or die "unable to append to $path: $!";
...
  3. or download this
    my $path = "Pandoras Box/$file.txt";
...