Re:how to print out a variable if theres a . in it?

[jbajin]

>>this is verzeichnis.pl
#########################################

#/usr/bin/perl -w

use strict;

my $qis_root = "/home/user1/DiREx/test";
my $SNR_LOG;
chdir($qis_root)|| die "canīt change to $qis_root!";

while (defined($SNR_LOG = <*>)){
#print "$dateien\n";
parse_logs($SNR_LOG);
}
sub parse_logs{

print "Yeeehaaa: $_ \n";

}
##########################################

<<
I would suggest doing it this way. This opens the dir, read's the files and 
gets rid of the . and .. which will be includeded in it.  

Hope that helps.. 

Joe 


#/usr/bin/perl -w

use strict;

my $qis_root = "/home/user1/DiREx/test";
my $SNR_LOG;
opendir(IMD, $qis_root) || die("Cannot open directory");

@thefiles= readdir(IMD);
closedir(IMD);
foreach $f (@thefiles)
{
       unless ( ($f eq ".") || ($f eq "..") )
       {
             print "$f";
       }      
}