Hello Chris, Please see my comment below. On Fri, Dec 28, 2012 at 10:24 PM, Chris Charley <char...@pulsenet.com>wrote:
> > > Tim wrote in message news:1356726727.215915216@**webmail.reagan.com... > > I hope this is a simple fix. I want to check the beginning characters of >> items in a hash, and compare that to a scalar variable. >> I do not need for the entire value to match; just the first couple of >> characters. >> Tim >> >> >> my $prefix_search_list = '03S,04S'; >> my @prefix_array = split /\,/,$prefix_search_list; >> my %prefix_hash = map {$_ => 1 } @prefix_array; >> >> #compare 05S to 03S and 04S >> my $input_field = "05S885858"; #should not match >> if ( $input_field =~ /$prefix_hash/ ) { print "$input_field is found in >> hash\n"; } >> else { print "$input_field is not found\n"; } >> >> #compare 03S to 03S and 04S >> $input_field = "03S84844"; #should match >> if ( $input_field =~ /$prefix_hash/ ) { print "$input_field is found in >> hash\n"; } >> else { print "$input_field is not found\n"; } >> > > Hello Tim, > > I only answered the question using a for loop. Am not the one who originator of the question please. > If you had used strict it would have told you of the error. You should > always > start your scripts with: > > #!/usr/bin/perl > use strict; > use warnings; > > > There is no variable declared as: $prefix_hash. That is just a > (undeclared) scalar > variable. You wanted the hash you created instead, I believe. > > The above was also my submission too. Please, check my reply to the OP. > To use your hash, something like the following will produce the results > you want. > > > #!/usr/bin/perl > use strict; > use warnings; > > my $prefix_search_list = '03S,04S'; > my %prefix_hash = map {$_ => 1} split /\,/, $prefix_search_list; > > > #compare 05S to 03S and 04S > my $input_field = "05S885858"; #should not match > if ( $prefix_hash{ substr $input_field, 0, 3 } ) { print "$input_field is > found in hash\n"; } > > else { print "$input_field is not found\n"; } > > #compare 03S to 03S and 04S > $input_field = "03S84844"; #should match > if ( $prefix_hash{ substr $input_field, 0, 3 } ) { print "$input_field is > found in hash\n"; } > > else { print "$input_field is not found\n"; } > > > > > I might have approached it differently. > > > #!/usr/bin/perl > use strict; > use warnings; > > my $prefix_search_list = '03S|04S'; > > while (<DATA>) { > print if /^$prefix_search_list/; > } > > __DATA__ > 05S885858 > 03S84844 > foo > bar > 04Sbaz > > > *** prints > > C:\Old_Data\perlp>perl t1.pl > 03S84844 > 04Sbaz > > > > Hope this helps, > Chris > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Tim
