bestimmte zeilen löschen: .. in einer datei (Allgemeines zu Perl)

deepblack

2004-12-19 19:08

User since
2004-06-15
46 Artikel
BenutzerIn
[default_avatar]

moin leute,
ich steh gerademal aufm schlauch...

der benutzer kann auswählen welche zeile er in der datei löschen will, soweit so gut, er gibt die zeilen nummer ein.. nur wie stell ich es an das
ich die zeile dann lösche? ich hab bis jetzt irgendwie keine funktion dazu gefunden, steht das evtl. in programming perl und ich habs nicht gesehen? wär super wenn ihr mir da mal auf die sprünge helfen könntet ;)

mfg deepblack

We have joy, we have fun, we have a root shell on a SUN!

renee

2004-12-19 19:42

User since
2003-08-04
14371 Artikel
ModeratorIn

z.B.:

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $zeilennummer = 13; # Beispiel: 13. Zeile soll gelöscht werden
my $file = '/zu/bearbeitende/Datei.txt';

tie my @array,'Tie::File',$file or die $!;
$array[$zeilennummer - 1] = '';
untie @array;

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/

deepblack

2004-12-19 19:57

User since
2004-06-15
46 Artikel
BenutzerIn
[default_avatar]

ok das ist ja fast perfekt :) danke soweit :)
leider hinterläst er in der datei ne leerzeile, das mag der rest von meinem script net so gerne ;) aber das ist das geringste problem.. da kümmer ich mich dann morgen mal drum

schönen abend wünscht deepblack

We have joy, we have fun, we have a root shell on a SUN!

esskar

2004-12-19 20:08

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ersetz mal

Code: (dl )

$array[$zeilennummer - 1] = '';

durch

Code: (dl )

splice @array, $zeilennummer - 1, 1;

deepblack

2004-12-19 20:29

User since
2004-06-15
46 Artikel
BenutzerIn
[default_avatar]

ahh super *verbeug*
geht perfekt.. danke :)

We have joy, we have fun, we have a root shell on a SUN!

esskar

2004-12-19 20:35

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

das ganze ist sehr zeit aufwendig; also aufpassen wie du es verwendest!

deepblack

2004-12-19 20:38

User since
2004-06-15
46 Artikel
BenutzerIn
[default_avatar]

das ganze brauch ich nur manchmal um alte daten aus ner datei zu löschen, auch immer nur mal eine zeile.. da wird es wohl net so schlimm sein :) und die datei ist auch recht klein, stehen hächstens 10 zeilen drin.. aber danke für den hinweis

We have joy, we have fun, we have a root shell on a SUN!

Crian

2004-12-20 11:04

User since
2003-08-04
5866 Artikel
ModeratorIn

Falls Du doch mal mehrere Zeilen löschen willst, lösch sie von hinten nach vorn, dann musst Du die Indizes nicht umrechnen.

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

Relais

2004-12-20 11:18

User since
2003-08-06
2244 Artikel
ModeratorIn

[quote=Crian,20.12.2004, 10:04]Falls Du doch mal mehrere Zeilen löschen willst, lösch sie von hinten nach vorn, dann musst Du die Indizes nicht umrechnen.[/quote]
In @Crians Sinne, "lösch sie gar nicht", laß das gleich den Index tun:

Code: (dl )

my @zahlen = ( 0 .. 9  );

print @zahlen, "\n"; # 0123456789

$#zahlen = 3;        # Letztes Element sei nun das 4. (Arrays fangen bei 0 an...)

print @zahlen, "\n"; # 0123

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

Winter is Coming

Crian

2004-12-20 15:28

User since
2003-08-04
5866 Artikel
ModeratorIn

Das geht aber nicht, falls Du aus einer 1000-zeiligen Datei die Zeilen 17, 42, 313 und 666 löschen willst ;)

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