alle Dateien eines Ordners nach String durchsuchen - #56619 (Allgemeines zu Perl)

J-jayz-Z

2005-07-22 21:32

User since
2005-04-13
625 Artikel
BenutzerIn

Ich hätte es wohl so gemacht:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

opendir(DIR, 'c:\Ordner');

map { 
print $_ . "\n" unless /logging/;
} (readdir(DIR));

closedir(DIR);

Aber es geht wohl beides. Und beinhaltet wohl beides Funktionen, die unter newbies nicht sehr weit verbreitet sind, die es sich aber lohnt mal genauer anzuschauen (map und grep).
perldoc -f grep
perldoc -f map
wenn du die scripte nicht ganz verstehst.

EDIT: if $_ !~ /bla/ in unless /bla/ geändert...
Mitdenken sollte man ^^\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de