Sorry, that was hasty...shoulda been something more like
my $file = '/path/to/file';
open(THEFILE,"<$file");
my @ary = <THEFILE>;
close(THEFILE);
for my $line(@ary) {
if($line !~ /^\d/) {
....
}
}
-----Original Message-----
From: Bo Mangor [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 20, 2002 1:17 PM
To: [EMAIL PROTECTED]
Subject: number
Hi there
I'm a new bird to Perl - and I have a little problem.
I have a file input where I split the file into an array and that works
fine, but there is some "spam" in the beginning of the file I want to
get rid of - the problem is that I never know how many lines there is
with this "spam"!
Therefore I want to make a check that excludes all lines there doesn't
start with a number in other languages I would make a check like
If (! isNaN(string)) {
.....
}
How do I make this check In Perl?
I haven't been able to find something similar in Perl, but I know that
it should be possible.
Best regards
Bo
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.370 / Virus Database: 205 - Release Date: 6/5/2002
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.370 / Virus Database: 205 - Release Date: 6/5/2002
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
