Opened by Gast at 2005-07-19 01:24
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Ups, ich habe vergessen $suchen zu setzen...
Was macht mein Code?
Als erstes verwende ich use strict;.
Um mir das Leben möglichst einfach zu machen, verwende ich das Modul
Tie::File. Damit kann ich den Inhalt einer Datei an ein Array "binden". Das heißt, dass in jedem Element des Arrays eine Zeile der Datei steht.
Das "binden" erfolgt bei tie my @array.... Das grep ist das gleiche wie bei Ishka!
Mit untie schreibe ich den Inhalt des Arrays wieder in die Datei zurück...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
use strict;
use warnings;
use Tie::File;
my $suchen = 'Test1';
my $file = '/path/to/file.txt';
tie my @array,'Tie::File',$file or die $!;
@array = grep{!m/^"\Q$suchen\E"/}@array;
untie @array;
Was macht mein Code?
Als erstes verwende ich use strict;.
Um mir das Leben möglichst einfach zu machen, verwende ich das Modul
Tie::File. Damit kann ich den Inhalt einer Datei an ein Array "binden". Das heißt, dass in jedem Element des Arrays eine Zeile der Datei steht. Das "binden" erfolgt bei tie my @array.... Das grep ist das gleiche wie bei Ishka!
Mit untie schreibe ich den Inhalt des Arrays wieder in die Datei zurück...
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/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/