Help for this page

Select Code to Download


  1. or download this
    foreach $komp_dir(@komp_dir) {
    if (-d $komp_dir){
        $komp_dir = split /\//; # splitting what?
  2. or download this
            ($komp_dir = $fields[6]) =~ /(^\d*)_(\w*)$/;
  3. or download this
    foreach $komp_dir(@komp_dir) {
    if (-d $komp_dir){
...
            and print "$1\n";
    }
}