Help for this page

Select Code to Download


  1. or download this
    @files = ("one.zip","twotwo.doc","three3.ppt","testfour");
map {$_ =~ /([^.]*)\.?/; push (@onlyNames, $1); push (@onlyExt, $');} 
+@files;
  2. or download this
    /usr/bin/perl
/home/users/d/davido/text.txt
C:\Perl\scripts\mytest.pl
  3. or download this
    /usr/bin/perl
/home/users/d/davido/text
C:\Perl\scripts\mytest
  4. or download this
    C:\Perl\scripts.old\mytest.pl
  5. or download this
    C:\Perl\scripts
  6. or download this
    bigfile.tar.gz
  7. or download this
    bigfile