Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7446[/thread]

truncate



<< |< 1 2 >| >> 12 Einträge, 2 Seiten
Froschpopo
 2005-11-07 20:59
#59865 #59865
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
habe folgendes:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

use strict;

open(FILE, "+<stats.txt")
    or die $!;

my @array = ();

while (<FILE>)
{
    push @array, $_;
}
seek FILE,0,1;
truncate FILE, 0;

print FILE @array;
close(FILE);

wenn ich mir die datei aber danach mal anschaue, dann hat er immer leerzeichen an den begin der datei geschrieben. WARUM?\n\n

<!--EDIT|Froschpopo|1131390193-->
Froschpopo
 2005-11-07 21:10
#59866 #59866
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
ah habs gefunden, war nen flüchtigkeitsfehler... SEEK_SET hätte es sein müssen :)
pq
 2005-11-07 21:30
#59867 #59867
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
genau deswegen sollte man Fcntl benutzen. hätte dir zeit gespart.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Froschpopo
 2005-11-07 21:35
#59868 #59868
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
solang ich das mit dem mod_perl nich gecheckt hab binde ich kein weiteres modul mehr ein, wird nämlich langsam echt ziemlich lahm!
pq
 2005-11-07 22:10
#59869 #59869
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
lol. wenn du meinst.
wie viele requests hast du so pro sekunde?
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
sri
 2005-11-07 22:40
#59870 #59870
User since
2004-01-29
828 Artikel
BenutzerIn
[Homepage] [default_avatar]
[quote=Froschpopo,07.11.2005, 20:35]solang ich das mit dem mod_perl nich gecheckt hab binde ich kein weiteres modul mehr ein, wird nämlich langsam echt ziemlich lahm![/quote]
roflmao
http://mojolicio.us/
Froschpopo
 2005-11-08 02:09
#59871 #59871
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
unterschiedlich je nach tageszeit - durchschnittlich aber über 300.000 pro Tag, so um 20.00 uhr rum aber schon relativ viele zeitgleich
pq
 2005-11-08 11:16
#59872 #59872
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
vielleicht kriegst du es richtig schnell, wenn du komplett alle module rausschmeißt,
hast du das schon mal probiert? SCNR
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Froschpopo
 2005-11-08 12:04
#59873 #59873
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
könnte man SEEK_SET nicht theoretisch auch selbst schreiben?
z.B. so:
Code: (dl )
sub SEEK_SET { 1 }

???\n\n

<!--EDIT|Froschpopo|1131444316-->
Crian
 2005-11-08 12:33
#59874 #59874
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Code: (dl )
use constant SEEK_SET => 1;
... aber wie mag das wohl dieses bööööse und laaaangsame Modul machen?
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
<< |< 1 2 >| >> 12 Einträge, 2 Seiten



View all threads created 2005-11-07 20:59.