|
Hi List, I have a script as below #!/usr/bin/perl my $out = 'Using TDS 5.0 Processing select * from
PowerSeller_prod.powerseller.loan_shipped from SYB_NJ14 to SYB_NJ14_WS Batch of 10000/10000 rows sent to SYB_NJ14_WS Batch of 10000/20000 rows sent to SYB_NJ14_WS Batch of 10000/30000 rows sent to SYB_NJ14_WS Batch of 10000/40000 rows sent to SYB_NJ14_WS Batch of 10000/50000 rows sent to SYB_NJ14_WS Batch of 10000/60000 rows sent to SYB_NJ14_WS Batch of 10000/70000 rows sent to SYB_NJ14_WS Batch of 10000/80000 rows sent to SYB_NJ14_WS Batch of 10000/90000 rows sent to SYB_NJ14_WS Batch of 10000/100000 rows sent to SYB_NJ14_WS Batch of 10000/110000 rows sent to SYB_NJ14_WS Batch of 10000/120000 rows sent to SYB_NJ14_WS Batch of 10000/130000 rows sent to SYB_NJ14_WS Batch of 10000/140000 rows sent to SYB_NJ14_WS Batch of 10000/150000 rows sent to SYB_NJ14_WS Batch of 10000/160000 rows sent to SYB_NJ14_WS Batch of 10000/170000 rows sent to SYB_NJ14_WS Batch of 10000/180000 rows sent to SYB_NJ14_WS Rows processed: 181346'; if ( $out =~ /Rows processed/ ) { my ($rc)=split($out,/:/); print "$rc rows were copied\n"; } When executed, its not printing the number from the last
line ("Rows processed: 181346"). What am I missing here? unixnetmgr /opt/sybasescripts/DB_Admin > a.pl rows were copied Thanks |
_______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
