Post aus anderem Forum ! (Sonstige Beiträge (auch Spaß und Sinnloses))

[thread]1354[/thread]

Post aus anderem Forum !

Leser: 2

BrownWolf

2003-09-16 05:37

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hallo,

in einem anderen Forum hat jemand anderes eine schwierige Aufgabe gegeben. Sie wollte dafÃ¼r 20 Â¤ Ã¼berweisen wenn es jemand schaft *lol*

Quote
20 Euro Belohung!!!! Â Â Â Â Â

Hallo, brauche dringend hilfe.
mÃ¶chte eine textdatei ab einer bestimmten Stelle Ã¼berschreiben.
Der Printbefahl sieht so aus:
print FILE "$id}{$email}}{$url}{$name}{$ort}{$strasse}{$nr}{$tel\n";

Ich mÃ¶chte nun, das beim Ã¼berschreiben vorne, die ersten drei Variablen nicht Ã¼berschrieben werden, aber dann aber der vierten Varibale soll alles Ã¼berschrieben werden. Also, das die id, die email und die url so bleiben sollen, der rest wird neu beschrieben. Ich habe mal was von einem seek-befehl gehÃ¶rt, der einen Zeiger auf eine bestimmte Stelle steuert und dann von dort aus beschreibt.

Wie mach ich das???? Bruch dringend einen Code, der erste Code der funktioiert,dem Ã¼berweise ich 20 euro sofort.

moni

Ich habe darauf folgendes geantwortet:

Code (perl): (dl )

Keine Garantie auf Richtigkeit:


#!/usr/bin/perl -w

my $line = 5; # Achtung ! Perl fÃ¤ngt bei 0 an zu zÃ¤hlen.

#---- Daten die geÃ¤ndert werden sollen.
my $ort = "Kanada";
my $strasse = "Buschstrasse";
my $nr = 32;
my $tel = 123456;

open(DAT,"+<datei.txt") || die $!; # Datei zum lesen und schreiben Ã¶ffnen
my @read = <DAT>; # Dateiinhalt einlesen
$read[$line] =~ /(.+)}{(.+)}}{(.+)}{(.+)}{.+}{.+}{.+}{.+/; # In bestimmter Zeile Daten zwischen Klammern matchen.
splice(@read, $line, 1, "Å©}{Åª}}{Å«}{Å¬}{$ort}{$strasse}{$nr}{$tel
"); # Bestimmte Zeilen Ã¤ndern, dabei die Daten der ersten 4 Klammern behalten.
seek(DAT, 0, 0); # Dateizeiger an den Anfang der Datei setzen
truncate(DAT, 0); # File komplett lÃ¶schen
print DAT @read; # Daten ZurÃ¼ck in die Datei schreiben
close(DAT); # Datei schliessen


20 Euro brauchens nicht sein. Ne Aspirin tuts auch !

Wie hÃ¤ttet ihrs gemacht ?
Edit: Diese komischen Zeichen da bei splice sollten eigentlich $1, $2 , $3 , $4 sein aber das Forum nimmt die nicht an ?\n\n

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

Ronnie

2003-09-16 10:43

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Hi, ich würde prinzipiell in eine zweite Datei schreiben. Die Leute wissen meist nicht was sie wollen, oder es fällt ihnen hinterher auf das es da einen Sonderfall gab. Ob du das splice brauchst weiß ich nicht, es ginge auch (vereinfacht):

Code: (dl )

s/^(\w+).(\w+).(\w+).(\w+).*$/$1 $2 $3 $4 $ort $str $nr $tel/;

oder habe ich da einen Denkfehler?

Gruss,
Ronnie\n\n

format_c

2003-09-16 10:56

User since
2003-08-04
1706 Artikel
HausmeisterIn

TIMTOWTDI
Und haste die 20 Euro auch bekommen?

Gruß Alex

Effizente Linuxshell

jan

2003-09-16 12:59

User since
2003-08-04
2536 Artikel
ModeratorIn

lass sie an strat überweisen, auf's community-konto.

Relais

2003-09-16 13:14

User since
2003-08-06
2246 Artikel
ModeratorIn

Und wenn man nicht die ganze Datei neuschreiben und im Speicher halten will, CPAN:

Tie::File verwenden. http://perloo.de/de/Tie/File/04.html

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

BrownWolf

2003-09-16 15:35

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Mein Ansatz war aber doch schon nicht schlecht :-)

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

pktm

2003-09-16 19:34

User since
2003-08-07
2921 Artikel
BenutzerIn

Wie ichs gemacht hätte? Steht als dritte Antwort im besagten Forum :)

http://www.intergastro-service.de (mein erstes CMS :) )

[E|B]

2003-09-16 20:05

User since
2003-08-08
2561 Artikel
HausmeisterIn

[quote=pktm,16.09.2003, 17:34]Wie ichs gemacht hätte? Steht als dritte Antwort im besagten Forum :)[/quote]
Und welches ist das besagte Forum?!

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]

View all threads created 2003-09-16 05:37.