combobox in perl/tk

Hi All, Is there anything equivalent of combobox in Tcl/Tk in Perl/Tk? Thanks Regards Guruguhan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Finding the current IP of my laptop

Rajesh Dorairajan wrote: Sorry. Missed out getting hostname. use IO::Socket; use Sys::Hostname; $HOSTNAME = hostname(); $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]); Rajesh # Either way this only works if /etc/hosts is populated: use IO::Socket; use Sys::Hostname; $HOSTNAME = hostname("postfix.

Re: Finding the current IP of my laptop

On Thu, 22 Apr 2004 14:20:43 -0700 "Rajesh Dorairajan" <[EMAIL PROTECTED]> wrote: > Sorry. Missed out getting hostname. > > use IO::Socket; > use Sys::Hostname; > > $HOSTNAME = hostname(); > $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]); This is okay provided your laptop has a valid host to IP

RE: Finding the current IP of my laptop

Sorry. Missed out getting hostname. use IO::Socket; use Sys::Hostname; $HOSTNAME = hostname(); $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]); Rajesh > -Original Message- > From: Rajesh Dorairajan > Sent: Thursday, April 22, 2004 2:18 PM > To: 'Emmanuel Lesouef'; [EMAIL PROTECTED] > Su

Find out what services are running on a win2k box from unix perl

I'm wondering if there is a way to find out what services are running on a win2k server from running a perl script on a unix host. Most the perl stuff I do is on Unix but I have a need at the moment to see that status of services (or running processes) on several servers. Is there a way to d

RE: Finding the current IP of my laptop

use IO::Socket; $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]); Rajesh > -Original Message- > From: Emmanuel Lesouef [mailto:[EMAIL PROTECTED] > Sent: Thursday, April 22, 2004 1:02 PM > To: [EMAIL PROTECTED] > Subject: Finding the current IP of my laptop > > > Hello all, > > I am tryi

Re: [Free Disk Space] : in Windows using perl

From: <[EMAIL PROTECTED]> > Is there anyway to find out "Free Disk Space" in Windows using PERL? > Assume I have a function say GetFreeDiskSpace(). I can specify some > path as a parameter to GetFreeDiskSpace() and want to get the return > value in bytes for available disk. The path can contain "Lo

RE: Finding the current IP of my laptop

> I would like to use a perl module instead of grep'ing the result of > ifconfig. > > Do you have so guidelines to give me ? > > Thanks in advance. Getting the IP is pretty platform dependent. If you're on Windows you can use Win32::IPHelper, but since you mentioned ifconfig I'm assuming you're

Finding the current IP of my laptop

Hello all, I am trying to build a little script (my first one...) that launches several commands depending on the current IP address of my laptop. I would like to use a perl module instead of grep'ing the result of ifconfig. Do you have so guidelines to give me ? Thanks in advance. -- Emmanue

Re: Floating Point Number - Wierd

> I am running a simple script that is reading through a text file and adding up > floating point numbers from each line. > At the 2165 line the number goes wrong. All the numbers are money \d+.\d\d > all numbers in the hundreds to thousands. > > I have removed lines thinking maybe something was

Re: [Free Disk Space] : in Windows using perl

On Apr 23, [EMAIL PROTECTED] said: >Is there anyway to find out "Free Disk Space" in Windows using PERL? >Assume I have a function say GetFreeDiskSpace(). I can specify some path >as a parameter to GetFreeDiskSpace() and want to get the return value in >bytes for available disk. The path can conta

[Free Disk Space] : in Windows using perl

Hi, Is there anyway to find out "Free Disk Space" in Windows using PERL? Assume I have a function say GetFreeDiskSpace(). I can specify some path as a parameter to GetFreeDiskSpace() and want to get the return value in bytes for available disk. The path can contain "Local Drive Name" or "Share Na

Re: untaint filename by replacing with underscores?

Damon McMahon wrote: $attach_name =~ s/[^\w\s\-\.]/_/; $safe_attach_name = $1; However, this isn't populating $safe_attach_name with anything. What am I doing wrong? You're using a variable which has not had anything assigned to it. The capture variable $1 is only assigned something if you put pa

RE: backtick variable substitution

-Original Message- From: hdan [mailto:[EMAIL PROTECTED] Sent: Thursday, April 22, 2004 2:14 PM To: Jayakumar Rajagopal Cc: hdan; [EMAIL PROTECTED] Subject: Re: backtick variable substitution Yes, it works at a ksh prompt: harold$ cat -n app_system.log.7 | grep -E 'period' | cut -f 1 |

Re: backtick variable substitution

Yes, it works at a ksh prompt: harold$ cat -n app_system.log.7 | grep -E 'period' | cut -f 1 | while read x; do head -$x app_system.log.7 | tail -2 15-APR-2004 10:49:03 PI-I-PI_Log_Report_Period Report period 01/01 00:00 - 04/15 23:59. From time 1072933200 to 1082087940. 15-APR-2004 10:49:54

RE: backtick variable substitution

Harold, (bottom posted) -Original Message- From: hdan [mailto:[EMAIL PROTECTED] Sent: Thursday, April 22, 2004 1:54 PM To: Jayakumar Rajagopal Cc: hdan; [EMAIL PROTECTED] Subject: Re: backtick variable substitution Thanks. I've tried that, but it didn't work. I've also tried using exec

Re: Floating Point Number - Wierd

On Thursday 22 April 2004 01:47 pm, Paul D. Kraus wrote: > I am running a simple script that is reading through a text file and adding > up floating point numbers from each line. > At the 2165 line the number goes wrong. All the numbers are money \d+.\d\d > all numbers in the hundreds to thousand

Re: backtick variable substitution

Thanks. I've tried that, but it didn't work. I've also tried using exec and system instead of backticks. I tried using eval, too, although I wasn't sure where to put it in the statement. -harold Jayakumar Rajagopal wrote: Hi hdan, try \$ for $. I did not test it anyway. HTH, Jay -Origin

Floating Point Number - Wierd

I am running a simple script that is reading through a text file and adding up floating point numbers from each line. At the 2165 line the number goes wrong. All the numbers are money \d+.\d\d all numbers in the hundreds to thousands. I have removed lines thinking maybe something was screwy with

RE: backtick variable substitution

Hi hdan, try \$ for $. I did not test it anyway. HTH, Jay -Original Message- From: hdan [mailto:[EMAIL PROTECTED] Sent: Thursday, April 22, 2004 1:13 PM To: [EMAIL PROTECTED] Subject: backtick variable substitution Hi all, Hopefully someone can help me out with this one. I have a perl

Re: Question regarding splitting files

> set size arguments > set input file > set output file > > open the file > read the content > print line of the content to $output file > check size of $output file > continue if not to big yet > else > check which files already live in the target directory (.1 .2 .3 .4 .5 etc) > rotate file to $

Re: Password Changer and rexec help

On Thu, 22 Apr 2004 05:55:00 -0700 "John W. Krahn" <[EMAIL PROTECTED]> wrote: > > One of the people at the USENIX presentation was Don Libes of the > National Institute of Standards and Technology. Don had been wanting > for some time to build a program to automate interactive Unix > applications

backtick variable substitution

Hi all, Hopefully someone can help me out with this one. I have a perl script that runs rsh commands to monitor a remote server. To minimize time and bandwidth I need to maximize the processing that is done on the remote server and minimize the number of rsh commands done. My question is, how

Re: Question regarding splitting files

> Hello there, > > I have a question about how i can split files. > > Let's say i have some very large files. (2gb for example) > and i want to split them into 650mb files. (they are plaintekst only) > Depending on the size of the files you may need a Perl enabled with "large file support" p

Question regarding splitting files

Hello there, I have a question about how i can split files. Let's say i have some very large files. (2gb for example) and i want to split them into 650mb files. (they are plaintekst only) I was thinking about something in the lines of this; (just words) set size arguments set input file set outp

Re: Perl vs PHP

> > > Perl IMHO is a SysAdmin language and PHP is and more or less always will > > > be a WEB lanaguage. > > > > > > > PLEASE, do not pigeon hole Perl like that, you should know better! > > PHP isn't only a web scripting language anymore either. > > Things progress ... the future is upon us. >

Re: Perl vs PHP

> > Perl IMHO is a SysAdmin language and PHP is and more or less always will > > be a WEB lanaguage. > > > > PLEASE, do not pigeon hole Perl like that, you should know better! PHP isn't only a web scripting language anymore either. Things progress ... the future is upon us. -Sx- :) -- To

Re: next if question

On Apr 22, rmck said: >bash-2.03$ ./clean.pl data.txt >10 >5201 >8001 >0 >3802 >##The Rest## >Header >20 >80 >bash-2.03$ > >I thought I could do this: > >#!/bin/perl > use strict; > use warnings; > > while( <> ) { #read from stdin one line or record at a time >next if $_ =~ /(^20$|^80$|^Hea

Re: next if question

Both of these work great (thanks): next if $_ =~ /(^20$|^80$|^Header$)/; next if m/^(?:Header|[28]0)$/; So now my results are: bash-2.03$ ./clean.pl data.txt 10 5201 8001 0 3802 bash-2.03$ How can you have the parsed info printed? Can you still use the $_?? So the goal would be: bash-2.03$

Re: Apache::AuthenIMAP in httpd.conf PROBLEM!

On Apr 22, John said: >I have installed the mod_perl with my Apache 1.3.28 >I want to authenticate (basic) against an IMAP Server. >I have also successfully installed the Apache::AuthenIMAP >PerlAccessHandler Apache::AuthenIMAP >PerlAuthenHandler Apache::AuthenIMAP I don't think that does what y

Re: Perl vs PHP

Wiggins d Anconia wrote: [EMAIL PROTECTED] wrote: Why would one prefer PHP over PERL, or vice, versa? I'm guessing PERL has more functionaltiy and is more robust. What are the technical arguments for one over the other? JP Perl IMHO is a SysAdmin language and PHP is and more or less always

Re: Perl vs PHP

[EMAIL PROTECTED] wrote: Why would one prefer PHP over PERL, or vice, versa? Both are powerful, Perl is more mature is much more flexible. PHP is a bloated resource hog also (Any program can be if badly written) but PHP increases dramatically Apache's footprint and memory usage to get its "fe

PHP vs PERL - thanks

Got a lot of good info, thanks to all that replied. JP -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl vs PHP

[EMAIL PROTECTED] wrote: That's what I was looking for, thanks! Jason No problem! Lots of good info out there :) [EMAIL PROTECTED] wrote: Why would one prefer PHP over PERL, or vice, versa? Both are powerful, Perl is more mature is much more flexible. PHP is a bloated resource hog also (Any

Re: untaint filename by replacing with underscores?

my $safe = $attach_name; $safe =~ s/[^\w\s\-\.]/_/g; That won't help. If $attach_name is tainted, $safe will still be tainted. Oops, I wasn't;t even thinking -t, duh! :) I was looking at the regex and the " replace any unsafe characters with underscores" part, sorry :) Here's how to do it: #

Re: Perl vs PHP

> [EMAIL PROTECTED] wrote: > > Why would one prefer PHP over PERL, or vice, versa? I'm guessing PERL has more functionaltiy and is more robust. What are the technical arguments for one over the other? > > JP > > > > > Perl IMHO is a SysAdmin language and PHP is and more or less always will >

Re: Apache::AuthenIMAP in httpd.conf PROBLEM!

John wrote: Ok, i fixed. Now ti authenticates against an IMAP on a linux Well, care to share what you discovered as the actual problem? :) -- _Sx_ http://youve-reached-the.endoftheinternet.org/ _ http://jaxpm.insecurity.org/ http://cis4dl.insecurity.org/ -- To unsubscribe, e-mail

[PHP] PHP vs PERL? HOPE THIS HELPS

http://www.bagley.org/~doug/shootout/index2.shtml http://www.bagley.org/~doug/shootout/bench/ary3/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Reading rss formated sources.

Thomas Williams wrote: > Thanks, but I meant that I am look for advise on reading rss files! My advice is to use XML::RSS. How does that not answer your question? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Apache::AuthenIMAP in httpd.conf PROBLEM!

Ok, i fixed. Now ti authenticates against an IMAP on a linux - Original Message - From: "WC -Sx- Jones" <[EMAIL PROTECTED]> To: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Thursday, April 22, 2004 3:56 PM Subject: Re: Apache::AuthenIMAP in httpd.conf PROBLEM! > John wrote: > > > PerlAc

Re: Perl vs PHP

Jan Eden wrote: This implies that programming/scripting languages differ not more than softdrinks. Interesting. So by knowing (a little) Perl, I can program also Fortran and Cobol! I never knew that. Thanks Ron! ;) I can say from personal expereince that if you can program in Perl you can *defini

Re: Perl vs PHP

hehehe... You might be surprised. While IANACY (I an not a coder... yet!), I have dabbled with other languages. The last 6+ months I've been studying Perl programming intending to push into coding. I've seen code in other languages (C for example) and much of it looks very similar to Perl. I

Re: Perl vs PHP

Ron B wrote on 22.04.2004: >Why would one prefer Pepsi over Coke, or vice versa? :) That's the >answer to your question. > >[EMAIL PROTECTED] wrote: >>Why would one prefer PHP over PERL, or vice, versa? I'm guessing >>PERL has more functionaltiy and is more robust. What are the >>technical argum

RE: Perl vs PHP

> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Thursday, April 22, 2004 3:01 PM > To: [EMAIL PROTECTED] > Subject: Perl vs PHP > > > Why would one prefer PHP over PERL, or vice, versa? I'm > guessing PERL has more functionaltiy and is more robust. >

RE: Reading rss formated sources.

Thanks, but I meant that I am look for advise on reading rss files! Tom Williams From: Bob Showalter <[EMAIL PROTECTED]> To: 'Thomas Williams' <[EMAIL PROTECTED]>, [EMAIL PROTECTED] Subject: RE: Reading rss formated sources. Date: Wed, 21 Apr 2004 17:17:25 -0400 Thomas Williams wrote: > I am tryi

Re: next if question

On Apr 22, 2004, at 8:54 AM, rmck wrote: hi, I have a while statement that does a next if a match is made against a reg exprerssion of some numbers. data file: Header 10 20 5201 8001 0 80 3802 #!/bin/perl use strict; use warnings; while( <> ) { #read from stdin on

Re: untaint filename by replacing with underscores?

On Apr 22, JupiterHost.Net said: >Damon McMahon wrote: > >> I have an externally supplied attachment filename which I need to >> untaint but still use. I'd like to replace any unsafe characters with >> underscores. This is what I've tried: >> >> $attach_name =~ s/[^\w\s\-\.]/_/; >> $safe_attach_na

next if question

hi, I have a while statement that does a next if a match is made against a reg exprerssion of some numbers. data file: Header 10 20 5201 8001 0 80 3802 #!/bin/perl use strict; use warnings; while( <> ) { #read from stdin one line or record at a time. next if

Re: Perl vs PHP

Why would one prefer Pepsi over Coke, or vice versa? :) That's the answer to your question. [EMAIL PROTECTED] wrote: Why would one prefer PHP over PERL, or vice, versa? I'm guessing PERL has more functionaltiy and is more robust. What are the technical arguments for one over the other? JP -

Re: Perl vs PHP

[EMAIL PROTECTED] wrote: Why would one prefer PHP over PERL, or vice, versa? I'm guessing PERL has more functionaltiy and is more robust. What are the technical arguments for one over the other? JP LOL :) And I wanted to avoid this same line as fas as Expect was concerned. "PHP is a Server-

Re: untaint filename by replacing with underscores?

Damon McMahon wrote: Greetings, Hello, I have an externally supplied attachment filename which I need to untaint but still use. I'd like to replace any unsafe characters with underscores. This is what I've tried: $attach_name =~ s/[^\w\s\-\.]/_/; $safe_attach_name = $1; However, this isn't popula

Re: Password Changer and rexec help

John W. Krahn wrote: From John Ousterhout at http://www.tcl.tk/doc/tclHistory.html One of the people at the USENIX presentation was Don Libes of the National Institute of Standards and Technology. Don had been wanting for ... summer of 1990, and it became an instant hit among system administrato

Re: untaint filename by replacing with underscores?

Damon McMahon wrote: $attach_name =~ s/[^\w\s\-\.]/_/; $safe_attach_name = $1; However, this isn't populating $safe_attach_name with anything. What am I doing wrong? This is an age old mistake - trying to ban unsafe characters. Try to think in reverse: $attach_name = s/[^a-z0-9]/\_/gi; This chan

Perl vs PHP

Why would one prefer PHP over PERL, or vice, versa? I'm guessing PERL has more functionaltiy and is more robust. What are the technical arguments for one over the other? JP -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Apache::AuthenIMAP in httpd.conf PROBLEM!

John wrote: PerlAccessHandler Apache::AuthenIMAP PerlAuthenHandler Apache::AuthenIMAP PerlSetVar IMAPServer My_IMAP_Server PerlSetVar IMAPPort 143 require valid-user What am i doing wrong? Authentication doesn't seem to be working Well, are there any logs - IMAP Server side or apache side - whi

Re: Password Changer and rexec help

Smoot Carl-Mitchell wrote: > > On Thu, 22 Apr 2004 00:37:37 -0400 > WC -Sx- Jones <[EMAIL PROTECTED]> wrote: > > > > Expect isn't a language, it is a program written in Tcl. > > > > Hmmm, too tempting, but I will pass up this opportunity =) > > BTW, expect is not written in Tcl. It uses Tcl synt

Re: graphic terminal in perl

Nicolas Grehalle wrote: Hi all, Howdy I look for example/help to write a graphic terminal in perl (like gnome-terminal or Konsole). I've found no example on the Web. I don't want just simulate a shell. I want a real bash shell (for example) in a graphic terminal. Somebody could help me to start

Re: graphic terminal in perl

Le jeu 22/04/2004 à 13:47, zentara a écrit : > On Thu, 22 Apr 2004 10:39:23 +0200, [EMAIL PROTECTED] > (Nicolas Grehalle) wrote: > > >Hi all, > > > >I look for example/help to write a graphic terminal in perl (like > >gnome-terminal or Konsole). > >I've found no example on the Web. > > > >I don't

untaint filename by replacing with underscores?

Greetings, I have an externally supplied attachment filename which I need to untaint but still use. I'd like to replace any unsafe characters with underscores. This is what I've tried: $attach_name =~ s/[^\w\s\-\.]/_/; $safe_attach_name = $1; However, this isn't populating $safe_attach_name with a

Re: Values in array may change

Randy W. Sims wrote: > > Question: what am I doing wrong here? > > > > For multidimensional arrays, the preferred syntax is: > > my @a; > $a[$x][$y][$z] = 'value'; > > see perldoc perllol Thanks. Works as expected. Sorry for asking something I should have looked up. Another programming languag

Re: Values in array may change

Niek Oosterlaak wrote: > > Every now and again I like to program for fun. In this case it is a > simulation. The basis is a grid that holds things like altitude, > pieces and things like that. To hold all data in a way I can remember > everything easily, I chose to put all in a multi dimensional a

Re: writing output to file

I would say file handling is a beginner topic so i wouldn't consider it off topic, apologies if it is. Problem solved anyway Graeme :) From: [EMAIL PROTECTED] To: "Graeme McLaren" <[EMAIL PROTECTED]> CC: [EMAIL PROTECTED] Subject: Re: writing output to file Date: Thu, 22 Apr 2004 10:56:11 +

Re: Values in array may change

Niek Oosterlaak wrote: Every now and again I like to program for fun. In this case it is a simulation. The basis is a grid that holds things like altitude, pieces and things like that. To hold all data in a way I can remember everything easily, I chose to put all in a multi dimensional array. I

Apache::AuthenIMAP in httpd.conf PROBLEM!

I have installed the mod_perl with my Apache 1.3.28 I want to authenticate (basic) against an IMAP Server. I have also successfully installed the Apache::AuthenIMAP Here is my httpd.conf ... PerlModule Apache::AuthenIMAP Options Indexes FollowSymLinks AllowOverride None order allow,den

Re: writing output to file

Hi Graeme, "Graeme McLaren" <[EMAIL PROTECTED

writing output to file

Morning all, I've got a problem where I need to write the output of a program to a file such as: /opt/www/htdig/bin/rundig -vv > output This prints the output to the screen, how to I write this to a file? Cheers, Graeme _ Find a

Values in array may change

Every now and again I like to program for fun. In this case it is a simulation. The basis is a grid that holds things like altitude, pieces and things like that. To hold all data in a way I can remember everything easily, I chose to put all in a multi dimensional array. If there is a better way

graphic terminal in perl

Hi all, I look for example/help to write a graphic terminal in perl (like gnome-terminal or Konsole). I've found no example on the Web. I don't want just simulate a shell. I want a real bash shell (for example) in a graphic terminal. Somebody could help me to start ? Thank you Regards, Nicolas

Re: #include like in C

[EMAIL PROTECTED] wrote: I need to include a header/boilerplate file in several Perl scripts. At this point, I'm using it as a module, but it's a big kludge. Essentially, I want the functionality that you have in C, where you can just #include the file, and it's evaluated in the scope of the file

RE: Date calculation

Hi Joel, - Original Message - From: Stout, Joel R Sent: 21.04.2004, 17:46 Uhr >Call me crazy but I have visions of people asking for Winter >discounts or various future changes (prolonged Summer rates?). What >of a simple text file that contains: > > >0914|80 >0915|80 >0916|55 >0917|

Re: Date calculation

Hi Chris, - Original Message - From: Chris Charley Sent: 21.04.2004, 18:48 Uhr >Hello Jan >Maybe something like this would do what you want :-) > >#!/usr/bin/perl >use strict; >use warnings; >use Date::Calc qw/Delta_Days Date_to_Days Add_Delta_Days/; > >my $beg = Date_to_Days(2004, 7, 1