### Re: How's your Perl? (II)

by xmath (Hermit)
 on Jul 26, 2004 at 13:26 UTC ( #377403=note: print w/replies, xml ) Need Help??

## Solutions:

Note that for a few exercises multiple solutions are given.

 [1] $foo = *x; [2] *foo = \substr$x, 0; *foo = \vec $x, 0, 8; [3] BEGIN {$^H |= 0x30000; $^H{qr} = sub{""} } [4] *foo = qr/IO::Handle/; [5] *foo = find PerlIO::Layer "raw"; [6] *foo = sub{\@_}->($x, $x); [7] *foo = \42; [8] *foo = sub{\@_}->(${*STDIN{IO}}); sub DB::DB { die if ++$x==2 } BEGIN {$^P |= 0x22 } [9] $foo = "\n0";$* = 1; [10] //; *foo = \$+[0]; [11] *@ = *|; eval { die "2" }; [12] 2 =~ /(2)/; *| = \local$1; 2 =~ /(2)/; *| = *^N; $[ = 2; *| = *[; [13] &Internals::SvREADONLY(\undef, 0); undef = 42; Log In?  Username: Password: What's my password? Create A New User Node Status? node history Node Type: note [id://377403] help Chatterbox?  [Cosmic37]: now I have tried another blunder - can anyone explain why I am such a dunderhead? [Cosmic37]: if ($line =~ /$mydt/ ) { print$line; } [Cosmic37]: I try to match successive date times stored in variable $mydt [Cosmic37]: I guess it is searching for the string "$mydt" [Corion]: Indeed cool, erix ;) [Cosmic37]: rather than the value of $mydt which is a date time strong such as 2016-01-01 12:30:56 [Corion]: Cosmic37: No, but maybe$mydt doesn't contain what you think it does, or it contains characters that are special in a regular expression? Try if( $line =~ /\Q$mydt\E/) { ... for a literal match [Cosmic37]: I mean string grrr [Corion]: Maybe add an else branch in which you print what the values of $line and$mydt are? [Cosmic37]: ah thank you I will try

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (11)
As of 2017-06-29 16:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (673 votes). Check out past polls.