Opened by Gast at 2008-02-17 10:14
ich hab herausgefunden das dieser teil des codes, welcher bei beiden tools vorkommt, auf windows nicht richtig funktioniert.
weiss jemand warum und wie ich das richtig hinkrieg?
open(datei, ">>", "1.txt") || die print "Datei konnte nicht erstellt werden!\n";
print datei @second;
close(datei);
open(DATA,"<","1.txt");
open(OUT,">","$name2");
foreach $line (<DATA>) # Entfernt leere Zeilenumbrüche
{
if ($line =~ m/[a-z]|[0-9]/i)
{
print OUT $line;
}
}$string=~ tr/<html>/s/d;
close(DATA);
close(OUT);
weiss jemand warum und wie ich das richtig hinkrieg?
open(datei, ">>", "1.txt") || die print "Datei konnte nicht erstellt werden!\n";
print datei @second;
close(datei);
open(DATA,"<","1.txt");
open(OUT,">","$name2");
foreach $line (<DATA>) # Entfernt leere Zeilenumbrüche
{
if ($line =~ m/[a-z]|[0-9]/i)
{
print OUT $line;
}
}$string=~ tr/<html>/s/d;
close(DATA);
close(OUT);