Hallo, dies ist ein Test.

PWD: /www/data-lst1/unixsoft/unixsoft/kaempfer/.public_html

Running in File Mode
Relative path: ./../../../../../../usr/ccs/../sbin/dump2slvl.pl
Real path: /usr/sbin/dump2slvl.pl
Zurück

#! /usr/perl5/5.36/bin/perl -w my $switch = 0x0; my $H = "([xXa-fA-F0-9]+)"; my $D = "([0-9]+)"; my $DD = "\\s+([0-9]+)\\s+([0-9]+)"; while (<>) { if (/^Switch\s+$H/) { $switch = $1; } if (/^\s*$D\s+$D\s+:$DD$DD$DD$DD$DD$DD$DD$DD/) { printf "%s %d %d", $switch, $1, $2; printf " 0x%x%x 0x%x%x", $3, $4, $5, $6; printf " 0x%x%x 0x%x%x", $7, $8, $9, $10; printf " 0x%x%x 0x%x%x", $11, $12, $13, $14; printf " 0x%x%x 0x%x%x", $15, $16, $17, $18; printf "\n"; } }