Opened by Weman at 2005-09-20 12:57
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ich hab sie mir angesehen, der Trenner ist wirklich 0x0d und Du hättest sie mit den hier genannten Mitteln einlesen können.
Hier ist das Programm, mit dem ich sie ausgeben konnte:
Interessanter Weise ist der Zeilenumbruch der letzten Zeile 0x0d 0x0a. Vermutlich hast Du sie mal versucht, in einem Windowseditor zu öffnen und zu speichern.
Hier ist das Programm, mit dem ich sie ausgeben konnte:
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
#!/usr/bin/perl
use strict;
use warnings;
my $File = '85635';
my @Lines = read_file($File);
print_lines(\@Lines);
#use Data::Dumper; print Dumper \@Lines;
sub read_file {
my ($file) = @_;
local $/ = chr(0x0d);
open IN, $file or die $!;
chomp(my @lines = <IN>);
close IN or die $!;
return @lines;
}
sub print_lines {
my ($lines) = @_;
for (@$lines) {
print $_, "\n";
}
}
Interessanter Weise ist der Zeilenumbruch der letzten Zeile 0x0d 0x0a. Vermutlich hast Du sie mal versucht, in einem Windowseditor zu öffnen und zu speichern.
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