Help for this page

Select Code to Download


  1. or download this
    my @arr = split(/\s+/, <>);
    
  2. or download this
    print "How many files do you want to combine?: ";
    my $numfiles = <>;
    ...
        $line =~ s/(^\s+)|(\s+$)//g;
        @filenames = split(/\s+/,$line);
    }