Help for this page

Select Code to Download


  1. or download this
    #!c:\perl\bin\perl.exe -w
    
    ...
        my ($test) = grep { $csvlist[$_] =~ /$x/} 0..$#csvlist;
        print "$x found at index: $test\n";
    }
    
  2. or download this
    file1 found at index: 2
    file2 found at index: 5
    file3 found at index: 0
    file4 found at index: 7
    file5 found at index: 4