[Cologne-pm] open () was mache ich falsch?

[Michael Lamertz]

Ich will jetzt nicht Dein ganzes Script refactorn (auch wenn der eine
oder Andere hier bestimmt freudig mitmachen wuerde >;-> ) aber:

On Fri, Apr 08, 2005 at 02:09:31PM +0200, cem.sakaryali at easi.de wrote:

> sub loadfile {  
>   my $name = shift;
>   print "$name\n";
>   open (A,$name) or warn "|$name| $!";
>   my @all=<A>;
>   close (A);
>   foreach (@all) {
>       print if $_=~ /RELEASE/;
>   }
> }

...wenn das open fehl schlaegt, gibtst Du 'ne Warnung aus, machst aber
ansonsten normal weiter, was bedeutet, dass Du mit 'use strict' beim
Lesen der Datei - die ja nicht geoeffnet wurde - 'nen Abbruch bekommst.

Dann doch lieber 

    open (A, $name) or do {
        warn ...
        return;
    }


Michael

PS: Sach'mal Bescheid, wenn Du 'ne Ausfahrt machst :-)


-- 
	    Well, then let's give that Java-Wussie a beating... (me)

Michael Lamertz                        |     +49 2234 204947 / +49 171 6900 310
Sandstr. 122                           |                       mike at lamertz.net
50226 Frechen                          |                 http://www.lamertz.net
Germany                                |               http://www.perl-ronin.de