Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+20 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
+5 replies![[Homepage]](/battie/theme/default/homepage.gif)
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use v5.16; open(my $FH, "<", "input.txt") or die "Can't open < input.txt: $!"; my $i; for (0 .. 3) { $i = int(rand(10)); say $i; say $FH $i } close $FH;
Tutorien in der Wiki, mein zeug:
+2 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use warnings; use strict; open(my $fh, ">", "output.txt") or die; my $i; my $r; for($i=0; $i<=3; $i++) { $r = int(rand(10)); print "$r\n"; print $fh "$r\n"; } close($fh);
1 2 3 4 5 6 7 8 9 10 11
use v5.16; use warnings; open(my $FH, ">", "input.txt") or die "Can't open < input.txt: $!"; my $i; for (0 .. 3) { $i = int(rand(10)); say $i; say $FH $i } close $FH;
Tutorien in der Wiki, mein zeug:
+2 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl use v5.16; # includes strict use warnings; my $output_file = "output.txt"; open(my $FH, ">", $output_file) or die "Can't open > $output_file: $!"; for (0 .. 3) { my $i = int(rand(10)); say $i; say $FH $i; } close $FH;
Tutorien in der Wiki, mein zeug:
+13 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
use strict; use warnings; use JSON; use Storable qw(freeze); use IO::File; my @arr = (1,2,3,4); # sei zufällig my $j = JSON ->new; # Array als JSON-String # übergeben wird eine Referenz auf das Array file_put_content('arrayfile.json', $j->encode( \@arr )); # Array als Binärsequenz # übergeben wird eine Referenz auf das Array file_put_content('arrayfile.bin', freeze( \@arr )); Edit: # Array als Text, jede Zahl auf eine eigene Zeile file_put_content('arrayfile.text', join("\n", @arr )); # Schreibe Sequenz sub file_put_content{ my $filename = shift; my $content = shift; my $fh = IO::File->new; $fh->open($filename, O_CREAT|O_TRUNC|O_BINARY|O_RDWR) or die $!; $fh->print( $content ); $fh->close; }
+12 replies
+11 replies
2017-02-03T16:12:30 hlubenowDu schießt mit Elefanten auf Spatzen ... oder so ähnlich.
+10 replies
2017-02-03T17:00:33 rosti2017-02-03T16:12:30 hlubenowDu schießt mit Elefanten auf Spatzen ... oder so ähnlich.
Ganz bestimmt nicht.
+9 replies
2017-02-03T21:44:59 hlubenow2017-02-03T17:00:33 rosti2017-02-03T16:12:30 hlubenowDu schießt mit Elefanten auf Spatzen ... oder so ähnlich.
Ganz bestimmt nicht.
Er will doch nur ein paar Zahlen in eine Datei schreiben. Wahrscheinlich kennt er JSON noch gar nicht (und Referenzen auf Arrays schonmal gar nicht), das würde ihn nur verwirren.
+2 replies
2017-02-04T09:54:25 Muffi> Sondern tu das mit den neuesten Erkenntnissen
Stimmt, binärsequenzen in Dateien schreiben ist natürlich brandaktuell.
Sorry, aber du bist manchmal geistig in so anderen Sphären, dass man kaum weiss was man antworten soll
Vor allem würd ich sein Beispiel zumindest mit CORBA implementieren, wenn wir schon bei: Warum einfach, wenns auch kompliziert geht sind
$fh->print( join "\n", @zahlenarray );
+6 replies
2017-02-04T06:14:39 rostiUnd ja, Wenn ich jemandem eine Sprache beibringen will, rede ich doch auch nicht wie ein Baby. Sondern tu das mit den neuesten Erkenntnissen auf eine moderne Art und Weise.
QuoteMost important, you don't have to know everything there is to know about Perl before you can write useful programs. You can learn Perl "small end first". You can program in Perl Baby-Talk, and we promise not to laugh. Or more precisely, we promise not to laugh any more than we'd giggle at a child's creative way of putting things.
QuotePerl is a language for getting your job done.
+5 replies
pack "N*", @numbers;
+4 replies
2017-02-04T17:24:08 rostiWenn es nur Zahlen sind, gehts auch mit
Code (perl): (dl )pack "N*", @numbers;
2017-02-04T17:24:08 rostiAuf IO::File würde ich jedoch trotzdem nicht verzichten wollen. Es importiert nämlich sämtliche Flags für sysopen (O_CREAT|O_RDWR usw) und darauf verzichten zu wollen ist einfach nur ungeschickt. Um nicht zu sagen dämlich ;)
Und nun: War das zu kompliziert oder gar abgehoben!?
Wenn ja, dann überprüf Dich mal ;)
+3 replies
+2 replies
1 2
sprintf "%c%c%c%c", 192,168,3,1; # 4 bytes einer IP-Adresse erzeugen pack "CCCC", 192,168,3,1;
perl -E'say int(rand 10) for 0..3' > dateiname.txt
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
