Re^4: var comparison

Comment on Re^4: var comparison
Re^5: var comparison by LanX (Monsignor) on Sep 08, 2012 at 18:42 UTC
hmm, nobody gave you a code example ? `DB<100> @option{qw/a b c/}=() => (undef, undef, undef) DB<101> exists $option{a} => 1 #true DB<102> exists $option{d} => "" #false` [download] but smart-match should be safe as long as you don't forget the quotes. Cheers Rolf	[reply] [d/l]
Re^6: var comparison by nemesisgus (Acolyte) on Sep 09, 2012 at 02:03 UTC
Nice hash slice, thanks! Just let me polish up your code so other newbies don't get confused: `my %option; @option{qw/a b c/}=(); # my %option = ( # 'a' => undef, # 'b' => undef, # 'c' => undef # ); exists $option{a} and print 'true'; exists $option{d} or print 'false';` [download] PS: what the h**l is `DB <...>` ?	[reply] [d/l] [select]
Re^7: var comparison by Anonymous Monk on Sep 09, 2012 at 08:47 UTC
DB <...> : the code was run under the debugger. Example of a debugger session: $ perl -de 42 Loading DB routines from perl5db.pl version 1.32 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 42 DB<1> %hash = qw( a 1 b 2 c 3 d 4 ); DB<2> print %hash c3a1b2d4 DB<3> print scalar %hash 4/8 DB<4> $hash{e} = undef DB<5> print scalar %hash 5/8 DB<6> print "true" if defined $hash{e} DB<7> print "true" if exists $hash{e} true DB<8> [download]	[reply] [d/l]
Re^8: var comparison by nemesisgus (Acolyte) on Sep 09, 2012 at 18:40 UTC