ich bin gerade dabei perl zu lernen und bemerke gerade, dass ich ein kleines aber, in Bezug auf meine Aufgabe, ernstes Problem habe.
Und zwar:
Ich habe hier das folgende Script zusammengeklau.. ähm geschrieben und wenn ich einen Doppelklick darauf ausführe, funktioniert es ohne Probleme.
Rufe ich es allerdings das Script mittels der Konsole auf, so passiert nix, bzw. es werden keine Daten in den Ordner geschrieben, aber die Ausgaben erscheinen.
Hier ist erstmal das Script:
Code: Alles auswählen
#!/usr/bin/perl -w
#
use strict;
use warnings;
use DBI;
my $user = 'root';
my $pass = '';
my $db = 'survey';
my $host = 'localhost';
my $driver = "DBI:mysql:$db:$host";
my $dbh = DBI->connect($driver,$user,$pass) or die $DBI::errstr;
my $statement = 'SELECT * FROM token';
my $sth = $dbh->prepare($statement) or die $DBI::errstr;
$sth->execute() or die $DBI::errstr;
my @ergebnisse;
my @result;
while(my @row = $sth->fetchrow_array())
{
push(@result, @row);
}
print @result;
open(FILE, ">./test.txt");
print FILE @result;
close(FILE);
Was noch zu bemerken ist, ist dass das Script in einem Extra Ordner des Wurzelverzeichnisses liegt.
Um konkret zu werden in /survey_daemon/
Weiss einer zufälliig Bescheid, woran es liegen könnte, dass sich perl so seltsam verhält?
MfG
Vic
