Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
push(@finalarr, "$data[0]/$data[1]/$data[2]/$data[4]");
}
@sorted_list = sort(@finalarr);
  2. or download this
    @datas=<FILE2>;

...
if ( grep( /$lines/,@datas) ) {
   print "$line";
}
  3. or download this
    2002/04/01/bbb/abc.xml