Re: Re: Re: Need RegEx assistance

Unmatched [ before HERE mark in regex m/<[ << HERE ^ at line 10

Please cut and paste or 'd/l code', don't try to retype it. If you don't see the 'd/l code' link, reparent by clicking on the node title. You will see it.

#m/<[
#  ^ should be '/'
m/\[
# ^
[download]

Comment on Re: Re: Re: Need RegEx assistance Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Need RegEx assistance by Anonymous Monk on Jul 12, 2002 at 22:05 UTC
I'm using the following code compliments of jsprat: `#!C:\Perl\bin\perl -w use strict; #paragraph mode - see perlvar, input record separator $/ = ""; while(<DATA>) { my @lines = split /\n/, $_; my $file; $lines[0] =~ s/\[/\[$file / if ($file) = $lines[1] =~ /([^/]*)$'; print join ("\n", @lines), "\n\n"; } __DATA__ [get4] $uri=/LRA/RiskApplicationPage.aspx $method=GET [get5] $uri=/LRA/CSS/RiskManagement.css $method=GET` [download] and I receive the following error: `Unmatched ( before HERE mark in regex m/( << HERE \[^/ at C:\Perl\Test +.pl line 10.` [download]	[reply] [d/l] [select]
Re: Re: Re: Re: Need RegEx assistance by Anonymous Monk on Jul 12, 2002 at 22:33 UTC
This is the code compliments of jsprat `#!C:\Perl\bin\perl -w use strict; #paragraph mode - see perlvar, input record separator $/ = ""; while(<DATA>) { my @lines = split /\n/, $_; my $file; $lines[0] =~ s/\[/\[$file / if ($file) = $lines[1] =~ /([^/]*)$'; print join ("\n", @lines), "\n\n"; } __DATA__ [get4] $uri=/LRA/RiskApplicationPage.aspx $method=GET [get5] $uri=/LRA/CSS/RiskManagement.css $method=GET` [download] I receive the following error: `Unmatched [ before HERE mark in regex m/([ << HERE ^/ at C:\Perl\greg2 +.pl line 10.` [download]	[reply] [d/l] [select]