in reply to Regex problem

Works for me. Your string, your code, my print statement:

$_ = "/MediaBox [ 0 0 614.39999 792 ]";
my ($x, $y) = m/^\/MediaBox \[ \S+ \S+ (\S+) (\S+) \]$/;
print "$x $y\n";

[download]

produces:

614.39999 792

Replies are listed 'Best First'.
Re^2: Regex problem
by ogxela (Novice) on Nov 04, 2004 at 01:46 UTC

    Hey, that info actually helped. I had trailing whitespace in $_ that was causing my regex to fail. Removing the EOL match made it work.

    --Alex

[reply]

In Section Seekers of Perl Wisdom