Schrift
Start · Board · Webprogrammierung mit Perl · Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl
[thread]9223[/thread]

Formularwerte an ein CGI-Skript übergeben (Seite 2)

Leser: 1


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
jogi
 2007-07-25 16:18
#78825 #78825
User since
2007-07-25
55 Artikel
BenutzerIn
[default_avatar]
Das ist der Quellcode:

Code: (dl )
1
2
3
4
5
6
7
open (FILE, "C:\\Dokumente und Einstellungen\\ich\\Anwendungsdaten\\tor\\test");
while (my $line = <FILE>)
{
    $line =~ /router\s(.*)\s(.*)\s(.*)\s(.*)\s(.*)/;
    print "$2\n"; # name
}
close (FILE);


Und hier ein Auszug aus der Quelldatei. Die Zeilen die mit router beginnen sind die für mich relevanten.

router cebolla43 200.31.122.242 9001 0 9030
platform Tor 0.1.2.14 on Linux i686
published 2007-07-25 04:08:26
opt fingerprint A61A 1B8C 80BE D0C4 EE1E E0D5 C577 B0BA 917F 8D0A
uptime 637225
bandwidth 51200 51200 56324
onion-key

router BlueStar88a 85.25.148.216 443 0 80
platform Tor 0.1.2.15 on Linux i686
published 2007-07-25 11:07:16
opt fingerprint 5C1A 263F A240 EBE9 5E99 1755 D67C 7C8A 82BA 4B3B
uptime 8908
bandwidth 3145728 6291456 532684
onion-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBALfzvCKD+JQwzPy4R39EjEKwP/nSoAdIIbUfLygUZFHojL89Yr9cDt4v
CMhyanXFK3TyeVaMMEAPmf22dUObPNZBXBI0WBkDgH+f5SPWlLfRMw/OhrOTFCOm
0XlpAzOJzawhHlvE8F/VpmONz1k8v8zqY06OtyUwf/4gxslUIVhXAgMBAAE=
-----END RSA PUBLIC KEY-----
signing-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAK4q+1WM0AiEmHDsVXNSSNHXiTOpVcQkLSNXpX+oBwTsS/IZUDeK7mNk
ZQJqclDunV6K5m9Dm0VKIG2vqHO9m4HV0YkvPdfOjSoTCA7jNRhPo/grrmSPy6u1
YSQAegEmxTUKFRhd270YJROkZJZJIQoF6O18zL1XZ23disuY8WXdAgMBAAE=
-----END RSA PUBLIC KEY-----
family BlueStar88b
opt write-history 2007-07-25 11:06:46 (900 s) 768321536,717191168,764293120,685602816,745820160,651262976,1016973312,939201536,676384768
,627560448,655885312,686750720,695351296,798813184,876896256,806819840,982638592,783340544
,704108544,744497152,785925120,782603264,810371072,736502784,803186688,980282368,101171712
0,848356352,890743808,819514368,904074240,836275200,732193792,722316288,758871040,77768294
4,844641280,819533824,946696192,969839616,942150656,896133120,856518656,818386944,85647360
0,759873536,771159040,838749184,712596480,364642304,499810304,552346624,463920128,50853888
0,435901440,490874880,367909888,366134272,298670080,284180480,267297792,255425536,20813004
8,225197056,288002048,232402944,203110400,201437184,196577280,155487232,179884032,22187520
0,265426944,212822016,185533440,525073408,490170368,241744896,153945088,201643008,22192025
6,260934656,265605120,254178304,98111488,0,53641216,94511104,88469504,129377280,100113408,
101668864,96503808,106526720,147876864,245763072
opt read-history 2007-07-25 11:06:46 (900 s) 706011136,656845824,698875904,624526336,690252800,592612352,948804608,879844352,669465600,
625409024,645347328,666842112,665054208,751931392,822220800,749907968,891059200,719039488,
647023616,652061696,717476864,709346304,757227520,676923392,738524160,921334784,956436480,
786594816,833973248,768514048,840088576,773453824,664799232,655723520,685978624,711316480,
767355904,742168576,888182784,882448384,877501440,835142656,793613312,758679552,795218944,
705630208,727666688,780819456,667393024,318347264,453738496,510636032,424706048,477066240,
410836992,467430400,358266880,353614848,283782144,276047872,259258368,250834944,202534912,
220831744,281980928,226547712,200321024,198488064,193522688,148156416,174352384,215377920,
261053440,206774272,180588544,523070464,491556864,242479104,154765312,202769408,222820352,
261966848,266584064,254562304,98641920,0,55920640,95834112,90152960,129465344,100602880,10
3012352,97188864,106876928,148724736,246827008
contact 0x36150C86 BlueStar88 <BlueStar88 AT xenobite DOT eu>
reject 0.0.0.0/8:*
reject 169.254.0.0/16:*
reject 127.0.0.0/8:*
reject 192.168.0.0/16:*
reject 10.0.0.0/8:*
reject 172.16.0.0/12:*
accept *:22
accept *:53
accept *:443
reject *:*
router-signature
-----BEGIN SIGNATURE-----
MzVgy6sKhuUCcuYaBeI5lGuAlbS2NrxhI7e54TH0HwWEhOxfmNJkGcGmw0USShZa
+0Dkk0RSoZiF7Q5chmzC4/c6s1iRbI3/5SsFL0uLiIOwDGWvF4MK2otsbIxFWSRU
T9m/Jq65RNlqf3yhEplPO6R22SEIyWG2b1SvOyE3/DE=
-----END SIGNATURE-----
router westwall 88.76.86.102 9001 0 0
platform Tor 0.1.2.14 on Linux i686
published 2007-07-25 11:26:44
opt fingerprint 6AB2 80E8 EB48 33CC 1310 A1E0 4D59 EA68 756D 0E53
uptime 65089
bandwidth 3145728 6291456 80671
onion-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAMoBAv+2XjXoJ73+tspVwv/4etRN6epwPnzBa0CfKPLKVFf722k37GYa
WbcO/QyZD46QzYVec6VIpPywYF4+TibALk3l7NOibOp/D4hfYZ3Wu3KcCLHkLDTe
YUdUdJ0uUdMjH86gQOzR0lB4YvELSoMwtc/WoOXwtI8za5mUYe+PAgMBAAE=
-----END RSA PUBLIC KEY-----
signing-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAMiiooFZdRYLQri/hQ6P3TMP05jIuzgPcLc7LKzfqez9SfRXq4TF3mVh
qDSawWuWgkgwJd8HHdEQ/BRlTGmrrdJoBloUz0NZ52DzoFwzc+hrKEK/JqZbXFB0
hfCgkyh9jrrI3EJrawG7ROjJn+dccHlcatF8gNF2/SOXgPbcXTh7AgMBAAE=
-----END RSA PUBLIC KEY-----
opt write-history 2007-07-25 11:23:41 (900 s) 253952,95232,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,700416,43008,883712,90112,306176,36
3520,448512,3159040,4406272,28027904,1900544,4444160,3307520,4478976,4963328,13332480,1322
5984,13755392,15521792,9717760,18411520,15473664,15849472,47551488,16727040,11776000,11283
456,22002688,12770304,31609856,25289728,8051712,9093120,6853632,10240000,8948736,11578368,
18811904,8397824,12682240,9043968,4139008,8844288,9579520,4292608,4156416,15577088,4059136
,7575552,3921920,4015104,13972480,15091712,9060352,11143168,22558720,20130816,18363392,167
50592,10200064,13056000,30085120,23958528,18629632,32658432,11458560,10870784,18705408,208
08704,24870912,17126400,15075328,11289600
opt read-history 2007-07-25 11:23:41 (900 s) 1345536,1601536,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1082368,64512,1572864,224256,482
304,376832,496640,3259392,4425728,28206080,1923072,4587520,3315712,4621312,5197824,1364377
6,13241344,13924352,15543296,9845760,18398208,15596544,15989760,47912960,16845824,12035072
,11310080,22188032,12806144,31799296,25304064,8317952,8965120,6972416,10257408,8990720,116
72576,18819072,8508416,12695552,9150464,4157440,8944640,9783296,4431872,4180992,15691776,4
079616,7695360,3928064,4118528,14010368,15210496,9071616,11261952,22640640,20243456,183674
88,16866304,10221568,13168640,30110720,24044544,18618368,32840704,11470848,10961920,187043
84,20905984,24882176,17268736,15073280,11366400
reject *:*
router-signature
-----BEGIN SIGNATURE-----
KaxkRz1DlVPEvOGobvIS8sbfamjCXLhJ7CFP8O5buPmbT+dwiYh41KieCcTRFZsx
ptefR5kypLUBl/82mfhQooxW9NBG4T3j/970qj230tvRunIQXFV2ImU4cUdui4+J
qo0aD1vnxxEbdZY5ttKbyyQ7eQGUz3bzvv/jqvTx3to=
-----END SIGNATURE-----
router Unnamed 86.63.141.110 9001 0 9030
platform Tor 0.2.0.2-alpha (r10455) on Windows XP Dodatek Service Pack 2 [workstation] {personal} {terminal services, single user}
published 2007-07-25 10:51:09
opt fingerprint 6E30 BDD0 C3E2 9B89 5E64 5256 EBC5 EBEC 6171 C3F9
uptime 7883
bandwidth 3145728 6291456 129852
opt extra-info-digest 6F510DFB4C2F1D51A6DFEC128018989FC1D5B84C
onion-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAOhJoN3k7xmzS1O8JGH3oNRsVD/XVwYlYMRXmyRUh4lyDa9jJ9CHYVM5
CLvXAN4LOaPmCIKacuq2awKAbty0z1682Gvitp712iLVRPMcCjpeY96G6qS18jry
tFTeFDxO+E7EbqKt/dKBZRCXIzrZ0YdyeYfH7w86EEMPZt07ucObAgMBAAE=
-----END RSA PUBLIC KEY-----
signing-key
-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAKb7RiyIAaBGq9/+32/p80x5h+XSuaBsyP+VnDfjhybepR4vOgcZo96r
HnCyLctYaKYXDiyHh4X4SrudXPvjD8I5WThpOi5jHMy9dBTqk0Wb4n0SPxGGmBbW
Fqv5Eb65r9XgMVWlT8uL4RRPnVuNzZGV7Yu3I0O8lRYdzAXs4wKfAgMBAAE=
-----END RSA PUBLIC KEY-----
opt write-history 2007-07-25 10:50:34 (900 s) 71031808,78127104,92279808,94406656,97469440,32699392,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3047424,5626880,7078912,18514944,13387776,34598912,293
85728,27564032,36313088
opt read-history 2007-07-25 10:50:34 (900 s) 52292608,55966720,68655104,72956928,80592896,28516352,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4057088,1110016,1874944,10308608,3007488,20596736,1663
8976,10324992,16869376
reject 0.0.0.0/8:*
reject 169.254.0.0/16:*
reject 127.0.0.0/8:*
reject 192.168.0.0/16:*
reject 10.0.0.0/8:*
reject 172.16.0.0/12:*
reject *:25
reject *:119
reject *:135-139
reject *:445
reject *:465
reject *:563
reject *:587
reject *:1214
reject *:4661-4666
reject *:6346-6429
reject *:6699
reject *:6881-6999
accept *:*
router-signature
jogi
 2007-07-25 16:37
#78826 #78826
User since
2007-07-25
55 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
my $test = "router Unnamed 161.53.60.233 9001 0 9030";

$test =~ /^router\s(.*)\s(.*)\s(.*)\s(.*)\s(.*)$/;
$name = $1;
$ip = $2;
    
print "$ip $name\n";


So gehts. Aber kaum pack ich es in eine Schleife gehts nicht mehr. Was mache ich falsch?
renee
 2007-07-25 16:59
#78827 #78827
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du hast zwar immer noch nicht geschrieben, *WAS* nicht funktioniert, aber hier ein paar Hinweise:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

my $file = "C:\\Dokumente und Einstellungen\\ich\\Anwendungsdaten\\tor\\test";

# immer angeben, was Du machen willst:
#  < = lesen
#  > = schreiben
#  >> = anhaengen
# 3-Arg-Form von open verwenden
# Fehler abfangen ( or die $! )
open (FILE, '<', $file ) or die $!;
while (my $line = <FILE>)
{

    # bei Regex auch auf Erfolg pruefen
    # nicht so gierig sein, als ? verwenden
    if( $line =~ /router\s(.*?)\s(.*?)\s(.*?)\s(.*?)\s(.*?)/ ){
        print "$2\n"; # name
    }
}
close (FILE);
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/
jogi
 2007-07-25 17:10
#78828 #78828
User since
2007-07-25
55 Artikel
BenutzerIn
[default_avatar]
An der RegEx hats gelegen. Super, Danke für die Hilfe.
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2007-07-25 13:49.