view release on metacpan or  search on metacpan

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

		# 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++;
	}