Hello Jochen,
Monday, December 2, 2002, 7:31:13 PM, you wrote:
JH> Markus Hahn <[EMAIL PROTECTED]> writes:
>> Definiere "mächtiger"
JH> Das was mal will mit weniger Zeilen Quellcode und trotzdem
JH> verständlich erreichen.
Du meinst
--snip--
#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;
--snap--
gegenüber
--snip--
#include <stdio.h>
#include <string.h>
#define S "Hello, World\n"
main(){exit(printf(S) == strlen(S) ? 0 : 1);}
--snap--
? ;-)
JH> Jochen
--
cheers,
Tobias
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
