Rueckgabewert (Seite 2) (Allgemeines zu Perl)

renee

2005-08-05 14:56

User since
2003-08-04
14371 Artikel
ModeratorIn

Die Konsole macht es richtig! system() gibt bei Erfolg immer die 0 Zurück! und da if(0) (was es ja in Deinem Beispiel ist) false ist, muss es auch in den else-Zweig...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

stift

2005-08-05 14:58

User since
2005-08-05
10 Artikel
BenutzerIn
[default_avatar]

Aber im Web (ueber Apache) funktioniert die if ohne Probleme, nur in der console geht er immer in die else-Funktion.

Wie kann ich das Problem beheben?

renee

2005-08-05 15:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Sicher, dass es im Web wirklich 100%ig so funktioniert wie Du Dir das vorgestellt hast?? Wenn system() nicht 0 zurückgibt und deshalb in den if-Zweig geht, dann wird wohl irgendwas schief gelaufen sein...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

renee

2005-08-05 15:06

User since
2003-08-04
14371 Artikel
ModeratorIn

Erstell einfach mal Testweise folgendes Skript für's Web:

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

print header('text/plain');

my $var = qx{mysqldump --opt DATABASE 2>&1};
print $var;

ungetestet!\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

stift

2005-08-05 15:37

User since
2005-08-05
10 Artikel
BenutzerIn
[default_avatar]

Ich benutzt fuers WEb und console das gleiche Script, der Befehl funktioniert auch (es wird die Backup-Datei erzeugt).

renee

2005-08-05 15:49

User since
2003-08-04
14371 Artikel
ModeratorIn

Die Datei wird auf jeden Fall angelegt, da das unabhängig von einem Erfolg von mysqldump ist. Hast Du Dir mal die Größe der Backup-Datei angeschaut??

Hast Du mal mein Skript von oben ausgeführt??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

esskar

2005-08-05 16:45

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ansonsten mal perldoc -f system lesen

J-jayz-Z

2005-08-06 03:45

User since
2005-04-13
625 Artikel
BenutzerIn

Könnte es vielleicht an den rechten des Webservers liegen?
Wenn er mysqldump nicht ausführen darf, ist auch klar, wieso es den else Zweig nimmt...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

stift

2005-08-07 02:59

User since
2005-08-05
10 Artikel
BenutzerIn
[default_avatar]

Denke ich auch langsam, aber was. Ich habe das Script auf einen anderen Server ausprobiert, da funktioniert es ohne probleme (Web+Console).

Strat

2005-08-07 15:13

User since
2003-08-04
5246 Artikel
ModeratorIn

suche dir mal den pfad zu mysqldump raus und schau dir mal an, was passiert:

Code: (dl )

1
2
3

my $mysqlDumpBin = "/usr/bin/mysqldump"; # oder was auch immer
-f $mysqlDumpBin or print "Error: file '$mysqlDumpBin' doesn't exists\n";
-x $mysqlDumpBin or print "Error: file '$mysqlDumpBin' is not executable by effective uid/gid\n";

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/