attheo

hast schon recht... aaber, das problem ist, dass ich da vorher was raus lese (mit RAF) und um es dann zu löschen das RAF schliessen müsste und später wieder ein neues (zweites) erzeugen.. ich dachte es gibt vielleicht einen schöneren weg..

Hi leute, kann mir jemand sagen, wie ich den Inhalt einer Datei komplett löschen kann ohne die Datei selbst löschen und neu anlegen zu müssen? Oder ist es vom Aufwand geringer sie zu löschen und neu anzulegen als den gesamten Inhalt zu löschen? Ich verwende die Klassen -File- und -RandomAccessFile-. Danke Attheo

moin, weiß zwar nicht was recv macht, aber das hab ich gefunden.. http://www.perl-board.de/perlguide/KapAA.html vielleicht hilfts dir weiter.. mfg

hi, danke für die tipps, aber das mit dem maskieren hat nichts gebracht.. habs auch mal ohne user und pw versucht und kriege da auch keinen quellcode zurück :confused: kann man skriptzugriffe mit php abwehren?? oder könnte sonst noch irgendetwas verkehrt sein?? gruß attheo p.s. ach ja, 'use strict' hab ich auch schon drin und es läuft alles ohne fehler.. noch was: wenn ich $u = "http://google.de" eingebe, dann lüpts..

nicht das ich wüste, warum?

hi leute, ich versuche mich gerade per perl skript auf einer seite einzuloggen. wenn ich die url ($u) im browser eingebe, funktioniert es auch ohne probleme. bei dem unteren skript kriege ich jedoch keinen content ($res->content) zurück und er logt sich auch nicht ein. weiß einer von euch woran das liegen kann? gruß attheo use LWP; use HTTP::Request; $name = "xyz"; $pw = "zyx"; $u = "http://xxx/login.php?name=$name&pw=$pw"; $ua = new LWP::UserAgent; $url = new URI::URL($u); $req = new HTTP::Request("POST", "$url"); $res = $ua -> request($req); if ($res->is_success){ print "\nContent:\n", $res->content,"\n"; print "\nStatus: ", $res->status_line,"\n"; print "\nBase:\n", $res->base,"\n"; print "\nAs_String:\n",$res->as_string,"\n"; } else { print $res->error_as_HTML; }

vielleicht klappts ja so: echo Y | `cacls \"$Pfad.$Verzeichnis\" /T /G Jeder:C` mfg attheo

hi, kannst du das calcs nicht als parameter mitgeben? [edit] ok, war zu spät [/edit]

stimmt, probier ich gleich mal aus.. und wenn nicht dann gehts halt net.. basta!

hehe.. ich glaub das problem ist noch nicht richtig klar.. also die sache mit dem redirect und buttons ansprechen und dementsprechende funktionen ausführen hab ich schon alles gelöst.. ich möchte nur gern dem formular sagen, nimm als default den zweiten submit button und nicht den ersten.. (s. google als negativ beispiel)

%Config ist nen hash von dir, oder? versuchs mal mit " anstelle von ' also so: <Quote> if ($Config{"redirect"}) { print "Location: $Config{\"redirect\"}\n\n"; } </Quote> gruß attheo

perl.. also eigentlich war das nur die vereinfachte version.. es werden deutlich mehr sachen übergeben als nur das textfeld. und mit zwei formularen? kann man die denn schachteln? ausserdem hab ich das auch ohne html seite + skript, sondern alles in einem skript welches sich dann immer selbst aufruft und von daher keinen aktion-tag in dem formular-tag braucht. das problem sieht man z.B. auch bei www.google.de dabei ist "Google-Suche" bei mir "Update" und "Auf gut Glück" "Submit". da wird ebenfalls nach bestätigung der eingabe der erste button (also "Google-Suche") betätigt und nicht der zweite ("Auf gut Glück").. ich möchte aber gern den zweiten als standard button haben.. :confused:

hi leute, 1. ich hab nen formular, welches ein textfeld enthält. 2. dieses form. hat 2 buttons (submit2 = "Update", submit1 = "Submit") 3. nach eingabe des textes und betätigung der enter taste soll das skript hinter dem "Submit" button aufgerufen werden, es wird jedoch der "Update" button betätigt, also der erste button des formulars.. kann man die reihenfolge irgenwie umkehren, bzw. selbst zuweisen? gruß attheo p.s. mit tabindex scheints nicht zu funktionieren.

hi, poste doch mal den entsprechenden teil vom code. mfg attheo

hi, meiner meinung nach ne ziemlich gute und einfache einführung findest du hier mfg attheo p.s. wenns nen cgi skript wird dann *.cgi sonst *.pl und bei modulen *.pm

habs rausgefunden: es gibt ne funktion namens "eval", die quasi nen skript in einem skript ausführt.. mit $var2=eval "$var1 $calc"; funktionierts.. *freu* brauche das für die berechnung bestimmter werte, deren bez. in einem configfile hinterlegt sind.. und dieses soll jetzt auch formeln zu den jeweiligen werten beinhalten.. gruß attheo

hi leute, ich hab hier nen kleines skript: $var1=1; $calc = "+10"; $var2 = $var1.$calc; print "\$var1: $var1\n"; print "\$var2: $var2\n"; das gibt mir für $var2 "1+10" aus, ich will aber als ergebnis "11" haben.. gibts da bei perl eine möglichkeit, dass der inhalt einer variable interpretiert wird? gruß camper

ach ja, die punkte und ggf. auch die slashs müssen mit backslashs maskiert werden.. bei perl zumindest.. mfg camper

welche programmiersprache benutzt du denn überhaupt? in perl wärs einfach: $pfade_gesamt="speztuning allgtuning"; mfg camper

ich hab nicht so ganz verstanden, was du vorhast, aber vielleicht hilft dir da das modul LWP weiter.. musst du hier mal suchen: CPAN mfg camper

nee.. das kriegt man ja auch mit localtime(time) raus.. ich wollte aus z.B. 11.12.02 -> Mittwoch (oder ne zahl von 1-7) raushaben.. die lösung steht im 2en post.. gruß attheo

hi, kenne mich mit dem morul zwar nicht aus, aber vielleicht braucht der noch nen zusätzlichen parameter (sowas wie -R bei ux) damit er das ganze auch rekursiv macht..

hmm? versteh nicht ganz.. auf welche frage hast du geantwortet? :confused:

habs jetzt, hier die lösung, falls es einen interessiert: use Time::Local; ($d,$m,$y) = split /\./, $date; $m = $m - 1; $y = $y - 1900; $sec = timelocal(00,00,00, $d, $m, $y); ($tmp, $tmp, $tmp, $tmp, $tmp, $tmp, $wday) = localtime($sec); $wday enthält dann 0-6 für sonntag - samstag.. gruß attheo p.s. hier gibts nicht so viele perl programmierer, oder?

moin leute, weiß von euch einer wie ich aus einem datum (format ist egal) den wochentag bzw. die sekunden ab xx.xx.1970 ermitteln kann? in php gibts da glaub ich so ne funktion (mktime) aber in perl find ich nichts.. gruß attheo