Hallo,ich häng schon wieder bei einem relativ einfachen Regex Problem. Bin gestern wieder bis tief in die Nacht gesessen, aber es will einfach nciht in mein Hirn rein wies geht.
C Ort: Laenge=15°E und Breite=47.5°N, Spaltfunktion: FWHM=1.0 nm, Aerosol: alpha=1.3 und beta=0.03
C Albedo=0.05 %, Seehoehe=0 km, Ozon=250 DU, Tagnummer(2002)=001, Zeit=08:30 MEZ, Sonnenhoehe=04.80°
C Wellenlaenge spektrale Bestrahlungsstaerke
C [nm] [mW/m2/nm]
290.0 1.2723e-006
291.0 6.1171e-006
292.0 1.9047e-005
293.0 5.3496e-005
Ich brauch nur die Zahlen Werte der Spalte 1 und 2, der Header ist egal.
Die ersten Zahlen gehn ja noch, aber Rest will irgendwie nicht.
#!/usr/bin/perl
my $current_file = 'C:\Perl Source\entrys\a_0_250_001_08_30.dat';open(FILE, "<$current_file");
my @linie = <FILE>;
#print $linie[0];
foreach(@linie) {
if (/^\s\s\s(\d+)\s+(\d+)/)
{
print "Found $1 $2 repeated\n";
}
}
close(FILE);
Danke!! backstaiabtw: weiß einer von euch eine Methode um aus einem Directory mit sehr sehr vielen Subdirectories *.dat(mit obigen Inhalt) auszulesen. Die Dateien sind jeweils am Ende des Dateibaums.
Hab readdir probiert, liest aber keine Subdirectories ein.
Datum: 16.01.2007-22:51
Schon wieder Regex...
