Re^2: perl regular expressions

Replies are listed 'Best First'.
Re^3: perl regular expressions by kennethk (Abbot) on Jun 23, 2014 at 23:30 UTC
Rather than calling the code as `find_string('filename', "testing,link,rd");` [download] for as I've written it, you'd invoke it with `find_string('filename', "testing","link","rd");` [download] Alternatively, you could add a split to my proposed solution. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^4: perl regular expressions by iamsachin (Initiate) on Jun 23, 2014 at 23:52 UTC
thanks for the info,I was wondering if i had to use any perl cpan modules for map and join to work.	[reply]
Re^5: perl regular expressions by kennethk (Abbot) on Jun 24, 2014 at 00:06 UTC
No installation necessary; those are all CORE. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply]
Re^6: perl regular expressions by tobyink (Canon) on Jun 24, 2014 at 00:55 UTC
Re^4: perl regular expressions by iamsachin (Initiate) on Jun 23, 2014 at 23:50 UTC
Thanks for the info.I was wondering if i had to install perl cpan modules for join and map to work?	[reply]
Re^4: perl regular expressions by iamsachin (Initiate) on Jun 24, 2014 at 14:04 UTC
Hello,The script is not working.I get the following error: Global symbol "$string" requires explicit package name at map.pl line 13. Execution of map.pl aborted due to compilation errors. Use of uninitialized value $file in open at map.pl line 8. readline() on closed filehandle $fh at map.pl line 9. I see that you have used @string but I see $string in die "Unable to find string: $string"; `use strict; use warnings; find_string { my ($file, @strings) = @_; open my $fh, '<', $file; my $re = join "\|", map quotemeta, @strings; while (<$fh>) { return 1 if /$re/; } die "Unable to find string: $string"; } find_string('prepos.config', "testing","link","100K");` [download]	[reply] [d/l]
Re^5: perl regular expressions by kennethk (Abbot) on Jun 24, 2014 at 18:28 UTC
Sorry, my oversight. The offensive line is the `die`, which should be updated to read (perhaps): `die "Unable to find string(s): @strings";` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^4: perl regular expressions by iamsachin (Initiate) on Jun 24, 2014 at 23:58 UTC
Still not working. Not enough arguments for read near ""Unable to find string: @strings";" Execution of .pl aborted due to compilation errors.	[reply]
Re^5: perl regular expressions by kennethk (Abbot) on Jun 25, 2014 at 14:44 UTC
I do not see that error; what is the exact code you have? `sub find_string { my ($file, @strings) = @_; open my $fh, '<', $file; while (<$fh>) { for my $string (@strings) { return 1 if /\Q$string/; } } die "Unable to find string: @strings"; } find_string('filename', "testing","link","rd");` [download] Of course the above should be amended to test that the open worked: `open my $fh, '<', $file or die "File open fail ($file): $!";` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]