view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/misc/sunix_pl.pm  view on Meta::CPAN

682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
        # print ("$i fields are: @{$sunix_pl->{_start_line_contents}}[$i] ");
        $line = @{ $sunix_pl->{_start_line_contents} }[$i];
 
        # print ("$i line is: $line  ");
        # match in list format @fields          =
        # g  search  globally
        # \s match any whitespace character
        # +  match \s one or more times
        # [A-za-z]+ match any letter one or more times
        # [0-9]*    match any number, none or more times
        @fields = $line =~ /\s+\$[A-za-z]+[0-9]*[A-za-z]+[0-9]*/g;
 
        # print ("sunix_pl,get_all_sunix_names, $i field 0 is:...$fields[0]...\n ");
 
        @extraction = split /\s+\$/, $fields[0], 2;
 
        # print("sunix_pl,get_all_sunix_names, $i  prog_name [$extraction[1]]\n");
 
        $prog_name[$i] = $extraction[1];
        $i++;
}