RE: regex question

[Thomas Wetmore]

You are using the split function incorrectly... See "perldoc -f split" and 
try something like this:

if($out =~ /Rows processed/ )
{
        my (undef, $rc) = split /:\s*/, $out;
        print "$rc rows were copied\n";
}
Thomas

if ( $out =~ /Rows processed/ )
{
  my ($rc)=split($out,/:/);
   print "$rc rows were copied\n";
}
_________________________________________________________________
MSN� Calendar keeps you organized and takes the effort out of scheduling 
get-togethers. 
http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=1034&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines 
 Start enjoying all the benefits of MSN� Premium right now and get the 
first two months FREE*.

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs