Thread Shell Befehl Echo (28 answers)
Opened by c4 at 2008-08-12 00:10

c4
 2008-08-12 19:17
#113420 #113420
User since
2008-08-10
14 Artikel
BenutzerIn
[default_avatar]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

#! /usr//bin/perl -w
#----------------------------------------------------------------
#       Author: c4  
#         Date: 12.08.2008  
#         File: echo.cgi
#  Description: Unknown Shell Echo eRRoR.
#           
#----------------------------------------------------------------

# Bind Modules
#----------------------------------------------------------------
use strict;
use CGI;
use Shell qw(echo);

# MyVars
#----------------------------------------------------------------
my $userPasswdFile = "/tmp/passwd"; #Hier soll das PW rein

# Code
#----------------------------------------------------------------
print "Content-Type: Text/html\n\n";
print "<HTML>\n";
  print "<HEAD><TITLE> Test: Perlscript using Shell echo </TITLE></HEAD>\n";
  print "<BODY>\n";
     print "<H2>Test: Perlscript using Shell echo</H2>\n";
     print "<HR>\n";
     print "<CENTER>Diese Seite wurde durch ein Perlprogramm generiert.</CENTER>\n"; 
     print "<HR>\n";
print "</BODY></HTML>\n";
&writePasswordToFile();

# Subs
#----------------------------------------------------------------
sub writePasswordToFile
{
    my $line = "";
    my $datei = "/tmp/testfile";  #Hier kommt das PW her         
    if ( -e $datei ) {
        open(my $FILE,'<',$datei);
        $line = <$FILE>;
        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!
}
#<eof -> echo.cgi>


Najo zu erwähnen bleibt noch das ihr halt nen file erstellt zb.: testfile und in das einfach eine Zeile mit irgendnem wort zahl was auch immer reinkloppt. ich hoffe ihr könnt das jetzt besser nachvollziehen.

@linuxer: Ja ich weiss so funtz es astrein, wie in deinem beispiel da oben!

@MatthiasW: Nein hab kein \n dran.

@LanX-: Nö bin hier ganz neu, aber hier bleib ich hier gefällts mir hat mir schon endzviel weitergeholfen unzählige beiträge über alles was man braucht fünr gutes durchstarten in perl. Auch die user hier aufm forum erste sahne!

@ALL Vielen Dank ;)

View full thread Shell Befehl Echo