Re^2: search an array

You are assigning the value 0 to every key so every key will be defined however you can't test for truth because 0 is false. If instead of assigning 0 you assigned any non-zero value you wouldn't have to use defined() to test the keys:

my $xpid = 1234;

%procs = map { $_ => 1 } @{ $dbh->selectall_arrayref( "select spid fro
+m v\$process" ) };

if ( $procs{ $xpid } ) {
   print "Pid is in use : $xpid\n";
}
[download]

Another way to do it:

my $xpid = 1234;

@procs{ @{ $dbh->selectall_arrayref( "select spid from v\$process" ) }
+ } = ();

if ( exists $procs{ $xpid } ) {
   print "Pid is in use : $xpid\n";
}
[download]

Comment on Re^2: search an array Select or Download Code

Replies are listed 'Best First'.
Re^3: search an array by roboticus (Chancellor) on May 26, 2006 at 11:45 UTC
jwkrahn: Thanks, I hadn't thought of that. It certainly simplifies things a bit! I'm not a perl golfer yet, but I think you just got a birdie! 8^) --roboticus	[reply]
Re^3: search an array by Anonymous Monk on May 26, 2006 at 13:55 UTC
Out of curiousity I tried testing these out and neither seem to work ? `use DBI; use DBD::Oracle; $dsn = "dbi:Oracle:MYSID"; $dbuser = "myuser/mypass"; my $dbh = DBI->connect($dsn, $dbuser, '', { AutoCommit => 1, PrintErro +r => 0 }); unless($dbh) { die "Unable to connect ($DBI::errstr)\n"; exit 1; } @procs{ @{ $dbh->selectall_arrayref( "select spid from v\$process" ) } + } = (); my $xpid = 16405; if ( exists $procs{ $xpid } ) { print "Pid in use : $xpid\n"; }` [download] The `$xpid` definitely exists in the v$process view. Is there something missing from this ?	[reply] [d/l] [select]