Opened by Turtleman at 2004-08-17 15:11
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Code: (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
Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.
G:\privat\perl\forum>output.pl
Ich habe folgenden output erhalten:
Datenträger in Laufwerk G: ist USB-STICK
Datenträgernummer: BCD0-06D0
Verzeichnis von G:\privat\perl\forum
04.08.2004 13:11 <DIR> .
04.08.2004 13:11 <DIR> ..
04.08.2004 13:14 1.302 peggy.pl
17.08.2004 15:17 143 output.pl
17.08.2004 15:01 200 testdatei.txt
17.08.2004 15:12 256 datei_zeilen_weg.pl
4 Datei(en) 1.901 Bytes
2 Verzeichnis(se), 33.234.944 Bytes frei
-----------------------------------------------------------------
G:\privat\perl\forum>cat output.pl
#!/usr/bin/perl
use strict;
use warnings;
my $output = qx(dir);
print "Ich habe folgenden output erhalten:\n", $output, "-"x65, "\n";
G:\privat\perl\forum>
Wie man sieht, funktioniert my $output = qx(dir); auch unter Windows.
Edit: Für ein echtes Programm siehe Fehlerbehandlung bei pq.\n\n
<!--EDIT|Crian|1092748796-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite