5 zeichen am anfang einer datei abschneiden: ... (Allgemeines zu Perl)

steinwolf

2003-09-27 17:19

User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]

Hi,
ich lese eine Datei in einen Skalar ein.
Wie entferne ich nun am Anfang der Variable am einfachsten 5 Byte?
substr()?
5 mal chop()?

mfg steinwolf

"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

havi

2003-09-27 17:28

User since
2003-08-04
2036 Artikel
BenutzerIn

Hi!

Code: (dl )

C:\>perl
#!/usr/bin/perl

use warnings;
use strict;

my $string = "1234567890";

print substr($string,5);
^Z
67890
C:\>

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Strat

2003-09-27 17:29

User since
2003-08-04
5246 Artikel
ModeratorIn

chop entfernt ein Zeichen am ende; am schnellsten duerfte wahrscheinlich substr() sein...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

havi

2003-09-27 17:40

User since
2003-08-04
2036 Artikel
BenutzerIn

Du kannst es auch mit 'unpack' machen, aber wie strat schon sagte, 'substr' duerfte wohl am schnellsten sein!

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

[E|B]

2003-09-27 19:52

User since
2003-08-08
2561 Artikel
HausmeisterIn

Oder so:

Code: (dl )

$scalar =~ s/^.{5}//;

TIMTOWTDI! 8)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

steinwolf

2003-09-27 21:17

User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]

sieht aber nicht schön aus..
andererseits habe ich gehört dass die funktion substr(), zumindest in C++ ein Sicherheitsloch darstellt..

ist da was dran?

"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

eisbeer

2003-09-27 21:21

User since
2003-08-29
347 Artikel
BenutzerIn

Na ich wüsste nicht, wieso !?

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

Relais

2003-09-27 22:27

User since
2003-08-06
2244 Artikel
ModeratorIn

[E|B
,27.09.2003, 17:52]
Code: (dl )
$scalar =~ s/^.{5}//;
TIMTOWTDI! 8)

Code: (dl )

$scalar =~ s/.....//;

Timtwody ;) 8)

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

[E|B]

2003-09-28 00:33

User since
2003-08-08
2561 Artikel
HausmeisterIn

*ggggg*
Oder so! :D
Finde meine Lösung dann doch eher schöner... ;-)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

jan

2003-09-28 01:46

User since
2003-08-04
2536 Artikel
ModeratorIn

mh, wenn ich nicht so faul wäre, würde ich mal einen bench laufen lassen, ob
substr($scalar, 0, 5) = '';
schneller ist als
$scalar = substr($scalar, 5);

ich tippe drauf, aber bin jetzt bei weitem zu faul, um einen test zu fahren (jaja, ich weiß, die logik hinkt, immerhin kann ich drüber schreiben ...).