On Tue, 2008-09-23 at 20:05 +0200, Clemens Bieg wrote:
> while (<$fh_in_extract>) {
>
> if ($id = m/^\d+/) {
if( ( $id ) = m/^(\d+)/ ){
> print $fh_out_final $id;
> }
> }
--
Just my 0.00000002 million dollars worth,
Shawn
Linux is obsolete.
-- Andrew Tanenbaum
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
