> 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
i see two problems.
1) form of split i think you need is split(/PATTERN/, $string).
2) split in this form with given string will create two-element list, the second element of which is the number.
this might work better:
my ($unused, $rc) = split(/:/, $out);
hth -- bill walters
_______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
