I have been reading "Learning Perl the Hard Way" and I was trying to complete one of the exercises which involved the use of regular expressions. I could get all of the anchors working except for "$". I have my code below with errors. I was just curious if someone could take a look at it for me. Thank you for your time--rgpii

use strict;
use warnings;
my $pattern = "(g$)";
my @fileargs = @ARGV;
foreach my $argument  (@fileargs)
        {       print "File Handle--> $argument\n";
                my $fhandle = $argument;
                open FILE,$fhandle;
                while (my $line = <FILE>)
                {       print "Printing Line --> $line\n";
                        if($line =~ m/$pattern/)
                        print "Pattern Matched!--> $line\n";

Here are my errors:

Final $ should be \$ or $name at ./grep.plx line 4, within string
syntax error at ./grep.plx line 4, near "= "(g)$""

7 Years
Discussion Span
Last Post by deepakkrish
my $pattern = "(g$)";

Here '$)' is perl special variable gives the effective group id of the process.
So finally $pattern gets '(g0'. It's not a parsed regular expression.
I assumed your try to match the letter 'g' at end of the line. So modify the below line in your code.

my $pattern = '(g$)';

Here the string assigned with in single quote. Now $pattern gets (g$). Its a parsed regular expression. So you able match your string end with 'g'.

For more information about single quoted string & double quoted string read the 'variable interpolation' concept.

Edited by k_manimuthu: n/a

Votes + Comments
good comment

Yes ,$) is special variable.If u print "$)" you will get 0 as the output.So single quotes is used

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.