Leser: 2
![]() |
|< 1 2 3 >| | ![]() |
29 Einträge, 3 Seiten |
$ [ ] { } | & < > ( )
perl -e 'system(q{echo $0})'
Quote@c4: Ich denke, man sollte diesen Befehl schon deswegen nicht verwenden, weil er ziemlich unsicher aussieht. Wenn in dem Passwort zum Beispiel '>' vorkommt, können gewiss böse Dinge passieren...
c4+2008-08-12 18:27:34--Also wenn du willst dann schreib doch einfach in das file zum auslesen 'testfile' HALLO rein! Aber das wird auch nicht funktionieren. Weil das Problem nicht an dem String liegt der übergeben wird sondern wo anders.
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; use warnings; use CGI qw(); use Shell qw(echo); open my $read, '<', '/tmp/text' or die "/tmp/text: $!\n"; # ACHTUNG: Augen auf! chomp ( my $line = <$read> ); close $read; echo "$line >> /tmp/output";
MatthiasW+2008-08-12 16:42:58--@c4, eventuell hängt an $UserPass ja noch ein \n. Das wäre ein Grund weshalb es nicht klappen könnte..
MfG
c4+2008-08-12 17:17:44--@MatthiasW: Nein hab kein \n dran.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
sub writePasswordToFile { my $line = ""; my $datei = "/tmp/testfile"; #Hier kommt das PW her if ( -e $datei ) { open(my $FILE,'<',$datei); ########################## # Da bleibt ein "\n" an $line hängen, falls eines in der Datei steht: $line = <$FILE>; ########################## # Diese Anweisung fehlt bei dir: chomp( $line ); ########################## close $FILE; } print "<CENTER>Wert der Var. line: '$line'</CENTER>\n"; print "<CENTER>Wert der Var userPasswdFile: '$userPasswdFile'</CENTER>\n"; echo "$line >> $userPasswdFile"; #<- pLZ fiX me! }
c4+2008-08-12 19:02:42--Jetzt kann ichs ja endlich mit echo machen! *spaZzZz*
![]() |
|< 1 2 3 >| | ![]() |
29 Einträge, 3 Seiten |