תועדוהה לכ תא רוגס     תועדוהה לכ תא חתפ

(17:54 20/09/01) a rami How to recomple regular expression ? When using a regular expression that contains an interpolated Perl variable, if it is known that the variable (or variables) will not change during the execution of the program. To workaround this problem you can "eval" the regular expression command so that is will recompile each time. The problem is this workaround don't work for me ! Here is a small program that demonstrate the problem: $template="aaaabcdaaa"; for($i=1;$i<=5;$i++){ print $i."\n"; eval { $template =~ s/abcd/$i/; }; print "This is template: $template \n---------------------\n"; } 1 This is template: aaa1aaa --------------------- 2 This is template: aaa1aaa --------------------- 3 This is template: aaa1aaa --------------------- 4 This is template: aaa1aaa --------------------- 5 This is template: aaa1aaa רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(23:22 20/09/01) a rami its a bug the thing is there is no problem with the regexp but with the loop. in the (original) loop "abcde" is replaced by "1" in the first round. therefore in the second round "abcd" just is not found, so it cannot be replaced. for($i=1;$i<=5;$i++){ $template="aaaabcdaaa"; print $i."\n"; $template =~ s/abcd/$i/; print "This is template: $template \n---------------------\n"; } רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(18:37 16/09/01) יחרזמ המלש יל שיש ץבוק ללכשל וא חתפל הצור ינא העפותל ,ריווחמ בכוכה ובש םיכיראתה תא בשחמש ,לסקא ץבוק יל שי םומינימה תועפות לכ תא יל בשחמ ץבוקהו .םומינימ םיארוק תאזה יתנייצ תוביסה תא ,לארשימ תוארל ןתינ אלש אלא תא ללוכ ולש לסקא ץבוק ותוא םע דחיב ,דרוו ץבוקב םכל יתחלשש תוארוהה יפדב הצור ינאש המ .הרירב ןיא םא רחא וחתפתש וא ,וללכשתש ינוצרבש שוגדו םודא עבצב ושיגדי טושפ ,יל וחתפתש רחא וא הזה ץבוקהש ינא .לוגלא םיארוק בכוכל .לארשימ םיארנש תועפותה םתוא תא ותואש לסקאה ץבוק תאו ,תוארוהה םע דרווה ץבוק תא הפל ףרצמ םיצבקה 2 .הרירב ןיא םא רחא וחתפתש וא ,וללכשתש הצור ינא םיצבקה 2 תא ולבקת זאו ,חותפל ךירצ ותואש ,פיז ץבוקב םיצבוקמ .לסקאהו דרווה רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(21:42 07/09/01) רבינוביץ אלי Examples how to install module I'm gradually converting all the modules to the standard installation procedure. You may install them by downloading the .tar.gz file. Extracting the archive and running: perl Makefile.PL make make test make install Keep in mind that if you use ActivePerl you should either use Microsoft's nmake or change the settings in ...\perl\lib\Config.pm. Most of the modules may be now installed using PPM. Do this to set up my repository: c:\> ppm PPM interactive shell (...) - type 'help' for available commands. PPM> set repository Jenda http://Jenda.Krynicky.cz/perl PPM> set save PPM> search This will show you the list of all available modules in all repositories. Type: PPM> install ModuleName to install whatever module you like. Keep in mind that the double colon in a module name is changed to a dash! So to install Mail::Sender you write PPM> install Mail-Sender רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(13:26 07/07/01) ןר ילא use var -ל my ןיב לדבהה המ -ל םהלש רשקה המו use strict רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(15:23 14/07/01) ןר ילא רמולכ -ב םישמתשמ יתמ my $par יתמו -ב use var ($par); רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(14:05 15/07/01) בוסלוביץ' אדי הסבר my $x; מגדיר משתנה לוקאלי ---------------- $x=3; זה אתחול של משתנה גלובאלי ---------------- אם עושים $x=3; ולפני זה אין use strict 'vars'; אז הוא מוגדר כמשתנה גלובאלי ---------------- אם עושים $x=3; ולפני זה יש use strict 'vars'; אז יש שגיאה ולכן חובה להגדיר משתנה עם my $x; כדי שהוא יהיה לוקאלי ---------------- אם רוצים להשתמש בקטע מסוים רק במשתנים גלובאליים אפילו שבתחילת התוכנית יש use strict 'vars'; אז צריך לתחום אותו בבלוק הבא {no strict 'vars'; } -------------- $x=3; a(); sub a(){ local $x=4; } print $x; בדוגמה הזאת יודפס 3 ולא 4 מכיוון שהפקודה local מחליפה את הערך של $x לערך אחר רק זמנית בתוך הפונקציה a() אבל כשיוצאים מהפונקציה בחזרה לתוכנית ה main() אז הערך שהיה ב $x לפני שנכנסו לפונקציה, חוזר (כי הוא נשמר במקום זמני לפני שהשתמשנו ב local) רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(18:06 06/09/01) fdsfsd cdsfsd אשונב ןיינעמ םוכיסל רושיק . אשונב ןיינעמ םוכיסל רושיק :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(16:17 02/09/01) בוסלוביץ' אדי תוזורחמ לש םוקימ תאיצמל רשקב הלאש תרחא תזורחמ ךותב יהשלכ תזורחמ לש םוקימ םיאצומ ךיא ? תזורחמ יל שי המגודל Hello World תזורחמה לש םוקימה תא אוצמל הצור ינאו "Wor" ךרעה תא יל ריזחהל הכירצ היצקנופה זא 6 רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(16:18 02/09/01) ןהכ רינ הבושת איה שמתשהל םיכירצ הבש היצקנופה index() םירטמרפ Arguments string substring position המגוד $ans = index("Hello World","Wor",0); רטמרפה 0 תזורחמה לש ןושארה ותהמ שופיחה תא ליחתהל ךירצ יכ ןייצמ רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(21:19 18/08/01) רבינוביץ אלי how can I loop and check each element in this hash arry %btn_stýle = ( "/forums/images" => "1", "/forums/images2" => "2", "/forums/images3" => "3", "/forums/images5" => "4" ); רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(14:56 30/08/01) בוסלוביץ' אדי It's very easy foreach $key (keys %btn_stýle) { print "$key: $btn_stýle{$key}\n"; } רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(23:00 21/08/01) ןושש רפוע !!!רפוע לש שדחה רתאה רפוע םשב רוחב לש יטרפ רתא הממיב תועש 24 ותיבמ היח המלצמ דועו יטרפה ונמוי תא אורקל ולכות הברה הברה הברה דועו יח רודישב תויח תומלצמ םירושיק עדימ www.live-net.up.co.il רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(18:32 07/08/01) a rami [ת"ל] Unix Tutorial Unix Tutorial :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(00:35 16/07/01) יתיא יתיא םירנאב תפלחה םירנאב ךתא ףילחהל חמשא <יוסח רפסמ> וא ליימב רשק רוצ אנא יתיא רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(14:26 07/07/01) ןר ילא ץראב םיקפסה לכל SMS חולשמל PERL תינכות שדח !!! תונולחבו UNIX -ב דבוע רושיק האר ^!^ ץראב םיקפסה לכל SMS חולשמל PERL תינכות :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(13:30 07/07/01) רן אלי whats my in perl ??? for example my $par; par = 20; רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(20:55 04/07/01) a rami ! תירבעב CGI/perl ךירדמ שי ףרוצמ רושיק ! תירבעב CGI/perl ךירדמ שי :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(14:58 03/07/01) בוסלוביץ' אדי בעיה ב CGI.PM מצורפת תוכנית שמשתמשת במודול CGI ובמודול DBI כאשר מריצים את התוכנית בדפדפן אז יש Internal Server Error כאשר אני מריץ את התוכנית בחלון דוס יש את השגיאות הבאות 1)Global symbol "$query" requires explicit package name at retrieve.pl 2)Global symbol "$stage" requires explicit package name at retrieve.pl התוכנית : #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<tml><ead><head><ody>"; use strict; use DBI(); use CGI; $query = new CGI; $stage = $query->param('stage'); print "<body><html>"; רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(15:06 03/07/01) . ימר use strict -ב שמתשמ התא רשאכ use strict אל התא לעופב לבא ! םירטמרפ רידגהל ןווכתמ התאש רמוא הז .רידגמ :אבה הדוקפה תא ףיסות use vars qw($query $stage) ירחא use strict ןיינעה תא תוריבסמש !!! העיגש תועדוה התלביק בל ביש "$query" requires explicit package name at retrieve.pl 1)Global symbol "$stage" requires explicit package name at retrieve.pl 2)Global symbol רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(16:14 02/07/01) a rami Example how to conect to mysql on window98 with no username # Tells us what the database's name is. $database_name = "deldb"; # Tells us what the database's username is. $database_username = ""; # Tells us what the database's password is. $database_password = ""; # mySQL $dbh = DBI->connect_cached("dbi:mysql:$database_name","$database_username","$database_password") || die("Couldn't connect to database!\n"); רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(22:05 25/06/01) ירזוע רוא םולשתב Perlל החמומ שורד :ליימיאל רשק רוציל אנ webmaster@coolscripts.co.il רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(18:07 03/06/01) ב ידא תרשה לע cgi/perl ץירהל חילצמ אל ב ליחתמ הז ,הנושארה הרושה ללגב דבוע אל ילש cgi -ה #!/usr/local/bin/perl היעבה המ תעדל לוכי אל ינאש הככ 755 -ל הייקיתה תואשרה תא יתיניש רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(18:12 03/06/01) ידדה ימר קודבל ךירצ התאש םירבד רפסמ שי 1) telnet -מ תינכותה תא ץירהל לוכי התא םאה :הדוקפה תשקה ידי-לע תאז ./name.cgi .הרוש התואב םתוא תתל ץלמומ תירטמרפ תלבקמ תינכותה םאש בל םש :המגודל ./name.cgi name=yosi&fname=kuku 2) WEB -ה לש תרשב error log -ה ץבוק תקידב 3) הדוקפהו םייניב תוספדה םע תינכותה ץצרה exit; תלשכנ איה עטק הזיאב תוהזל ידכ 4) ךילע .האשרה הל ןיאש ןכתי םיצבקל תבתוכ וא תארוק תינכותה םא םיצבקל האשרה רשפאל chmod הדורפה ידי-לע רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(22:09 04/06/01) צפריר רינה You can do some printing to debug $debug = 0; #$debug = 1; #if ($debug == 1) {print "Content-type: text/html\n\n debug:3 <R>\n";} #if ($debug == 1) {print "mod perl env is: $ENV{\"MOD_PERL\"}<r>\n";} #if ($debug == 1) {print "GATEWAY_INTERFACE is:$ENV{\"GATEWAY_INTERFACE\"}<r>\n";} #if ($debug == 1) {print "debug:2<R>\n";} #if ($debug == 1) { &CgiDie("Could Not Open Message File\n"); } #if ($debug == 1) {print $query->dump} #if ($debug == 1) {exit;} רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(03:23 09/06/01) ...מרי בקעי ?הז המ המ יל ריבסהל לוכי התא ?הפ התבתכ !הבר הדות רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(09:52 15/05/01) תיריע com ? com טקייבוא םע םידבוע ךיא NT workstation 4.0 : הלעפה תכרעמ perl: 5.0 ?com יטקייבוא םע הדובע לש אשונה לכ לע רמוח אוצמל רשפא אופא (אשונה תא הריכמ אל) רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(23:19 16/05/01) רירפצ הניר COM טקיבואל perl תינכות לכ ךופהל ןתינ -מ הנכות תשיכרב ךורכ הזש יל המדנ http://www.activestate.com/ http://www.activestate.com/ :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(22:37 13/01/01) םורופה להנמ ימר Database לומ חותיפל םירושיק Database לומ חותיפל םירושיק םירושיק ואצמת וז הירוגטקב רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(22:43 13/01/01) םורופה להנמ ימר [ת"ל] DBI לש תיבה ףד DBI לש תיבה ףד :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(15:58 10/05/01) רירפצ הניר [ת"ל] Introduction to Databses for Web Developers Introduction to Databses for Web Developers :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(08:39 02/05/01) stempler irit sendmail hello, to send mail in NT exchange system, how do I do it? if this is the unix way: sub send_mail { $name=param('name'); $sendmail = "/usr/sbin/sendmail -t -n -oi"; open (MAIL, "|$sendmail")||die ("Content-type: text/plain\n\nCould not open sendmail\n"); $to=$sendto; $from=param('login'); $subject="Web Form Result\n"; print MAIL <<OF; Sender: $from From:$from To: $to Subject: $subject name: $name EOF close MAIL; } what is the exact equivalen for NT exchange? thanks רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(10:28 02/05/01) רירפצ הניר NT -ב תאז םשיל םיכרד הברה שי ינא תא סקינויב התתנש המגודב ומכ ליגר SNMP ראודב רבודמ םא :לודומב שמתשהל הצילממ mail::sender cpan -מ ותוא דירוהל ןתינ ףרוצמ רושיק האר הניר www.cpan.org :הוולנ רושיק רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(12:56 02/05/01) stempler irit sendmail ?תושעל רשפא דוע המ - וזכ היצפוא יל ןיאש החנהב .תמייק הנכות ךותל רבחתהל רומאש והשמ הז רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא

(21:14 02/05/01) רירפצ הניר ! וזכ היצפוא ךל ןיאש תויהל לוכי אל .ךכ םשל תכרעמ להנמ תויהל ךירצ אל .קסידה לע הירפס רוציל הז תושעל ךילאש לכ !!! םיצבק רפסמ הילא קיתעהלו !!! ךכל תלגוסמ תאש החוטב ינא רשק רוצ    העדוה ספדה    רבחל חלש    הבוגת    :תויורשפא