Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6017[/thread]

Windows kann nur 508 Dateien Oeffne (Seite 2)



<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten
frodus
 2004-01-14 20:02
#79184 #79184
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
Ist eine Testbench, mit einer ganzen menge Perl,
VHDL und Tcl code.
Leider ist die Kommunikation von Perl nach VHDL
nur ueber Dateien moeglich.

Perl uebenimmt sozusagen das checken von den
Daten die sich in 512Dateien angesammelt habe.
Das Script zum checken habe ich auch nicht selber geschrieben
sondern nur geerbt.

Man erweiteert halt solange bis es nicht mehr geht und ich
hoffe dass ich jetzt noch nicht an dem Punkt bin wo ich mir
ein neues Konzept ausdenken muss.
esskar
 2004-01-14 20:04
#79185 #79185
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
würde die dateien nur dann öffen, wenn es not ist... beim einlesen und auswerten und dabei immer eine nach dem andern!
frodus
 2004-01-14 20:05
#79186 #79186
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
Ich muss Dir recht geben, das Script is nicht fuer sowas ausgelegt.
Als es allerdings vor gut 3 Jahren von einem meiner Kollegen
geschrieben wurde. Musste es halt nur 4 Dateien Oeffnen.
Dubu
 2004-01-14 20:41
#79187 #79187
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
*g*

Soviel zur vorausschauenden Programmierung. ;)

Nebenbei bemerkt: Was soll das denn?
Code: (dl )
1
2
3
4
5
# Create the files 
for (my $i = 0; $i < 520; $i++ ) {
  open(TOUCH, "touch cb$i.txt|") or die "could not touch the file $i";
  close(TOUCH);
}

Du startest 520 mal ein externes Programm und oeffnest eine Pipe, die du nie benoetigst.
Wenn du wirklich die Funktion von touch benoetigst (dazu haben wir ja gerade einen anderen Thread), dann reicht ja ein
system ("touch ...") == 0 or die "...".

Ansonsten vielleicht sowas wie
Code: (dl )
1
2
utime undef, undef, $name or 
    open (FOO, ">> $name") && close FOO or die "$!";

als Emulation. (Achtung, utime() mit undef erst ab Perl 5.7.2! )
eisbeer
 2004-01-14 21:21
#79188 #79188
User since
2003-08-29
347 Artikel
BenutzerIn
[Homepage] [default_avatar]
touch gibts unter win2k aber nicht.

Schau mal in der datei X:/WINNT/system32/config.nt
Da steht entweder schon was oder du musst das rein-
schreiben:
files = 512
buffers = ~50

Du musst mit den Werten, besonders buffers, rumspielen.
vielleicht funtzts ja. Kein Gewehr :)

PS: achja, ich weis leider nicht, ob du danach neustarten
musst, aber es empfiehlt sich ...
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
frodus
 2004-01-14 22:04
#79189 #79189
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
Danke fuer die Info werde ich Morgen auf der Arbeit mal direkt checken.

Den befehl system hatte ich bei dem erstellen des Beispiels total
verdrängt werde mir das nächste mal mehr Mühe geben.

Touch ist auf unserem system ein teil der Cygwin shell.:)
havi
 2004-01-15 09:46
#79190 #79190
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
[quote=betterworld,14.01.2004, 18:46]Steht da nicht in der config.sys so etwas wie files=anzahl?
Weiss ja nicht, welche Windows-Version Du hast... bei 95 bin ich ausgestiegen.
Edit: Ich weiss doch, welche Windows-Version Du hast[/quote]
Jetzt wird config.nt verwendet...

Gruss
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
Crian
 2004-01-15 10:46
#79191 #79191
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Was ist VHDL? Und bist Du sicher, dass man nur über Dateien kommunizieren kann? Nicht vielleicht auch über OLE?
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
frodus
 2004-01-15 11:12
#79192 #79192
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
Das mit dem config.nt ist zwar ganz nett aber so richtig funktionieren tut das
mal nicht.
Dadurch fwird zwar dhe Variable files auf den entsprechenden Wert gesetzt
aber mein W2K ist das total egal.:angry:
havi
 2004-01-15 11:21
#79193 #79193
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Hast du auch neu gestartet?
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten



View all threads created 2004-01-14 18:33.