Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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??


in reply to How's your Perl? (II)

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.