Re: Q to Japhy about difference sub

2001-11-22 Thread Pinar 2
On Thu, 22 Nov 2001, Jeff 'japhy' Pinyan wrote: > On Nov 21, Pinar 2 said: > > >syntax error at ./shopdiff.pl line 5, near "++ for " > >Execution of ./shopdiff.pl aborted due to compilation errors. > > You're using an older version of Perl. Do: > > for (@_) { for (@$_) { $seen{$_}++ } } > > in

Re: reading and writing to a text file

2001-11-22 Thread John W. Krahn
Seyi Ogunbona wrote: > > Hi, Hello > Two things. > Firstly, I would like to know if it is possible to > write in a program or script in perl to read a set of > two numbers seperated by a comma, I have exported to > a text file and the put > the numbers in another table as arguements. Yes, i

formatted text to MAIL

2001-11-22 Thread Karotti
How can I write text to EMAIL ,when I like to format text like that: $luku=5; format Something = Test: @ @| @> $str, $%, '$' . int($num) .. $str = "widget"; $num = $luku; $~ = 'Something'; write Because , print MAIL sprintf "%-6.5s", "$itemid"; does not give good result.PH -- T

Re: Counting White Spaces in perl

2001-11-22 Thread Jim Conner
I'll take a whack at this: At 08:19 11.22.2001 +0800, Harry Varvarigos wrote: > I am trying to count the no. of blanks that appear and then break out of the >loop when all arrays' last elements are blanks/spaces. I think sprintf >will do it but I can't figure it out: > >printf >DGSUM"+---

Re: that '::" thing

2001-11-22 Thread Jenda Krynicky
From: <[EMAIL PROTECTED]> > I'm a super beginner...what exactly is happening when '::' is being > used. Is this related to a 'use this;' statement? > > Dumbguy Well ... it's hard to say what's "happening". Here $main::x = 5; the :: separates the name of package (a se

Weekly list FAQ posting

2001-11-22 Thread casey
NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address)

that '::" thing

2001-11-22 Thread Patrick.Griffin
BDY.RTF Description: RTF file -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

2 perl installs HELP

2001-11-22 Thread Dave Turk
While troubleshooting a problem I have realized that I have 2 perl installations. I would like to start over with my perl installation and just use tarballs from now on. The server is hot so I need to be careful. I am running RedHat 7.0 The RPM installation is in /usr/lib/perl5vers

Re: shadow file

2001-11-22 Thread peter grotz
yeah, you´re right maxim. I solved this prob with two separate progs: the cgi gives the user-data to a deamon (running as root) using a persistent hash. hope this helps -- peter grotz rehberger architekten schertlinstr 23 86 159 augsburg tel 0821 25980-29 fax 0821 25980-20 -- To unsubscribe

Re:slash issue on a regex

2001-11-22 Thread Jeff 'japhy' Pinyan
On Nov 22, Jorge Goncalvez said: >$buf=~(/d:/dhs3mgr/e1401/dhs3linux/fr/cpiofile/) > >but it didn't work.How can i do to escape the /. Well, escaping is done with \, but if you do that, you'll end up having "leaning toothpick syndrome": $buf =~ /d:\/dhs3mgr\/e1401\/dhs3linux\/fr\/cpiofile/;

Backticks Command Execution

2001-11-22 Thread Veeraraju_Mareddi
$pat = `echo \%path\%` This should direct output of the echo command to $path variable. But this is not happening,but it displays output to the screen instead. I ran this script in around 200 systems(windows 95 + windows 98),130 out of them produced the required output ,as remining failed. Wha

Re: Backticks Command Execution

2001-11-22 Thread Mark Veinot
A better way to get PATH would be: $pat = $ENV{PATH}; (forgive me if this doesn't work in win32-perl, I'm a Unix hacker at heart :) -- How long will a floating point operation float? Mark Veinot Network Administrator Linux Certified Professional - Original Message - From: "Veeraraju_M

Re: checking if a file exists

2001-11-22 Thread Etienne Marcotte
if (-e $file) do something [EMAIL PROTECTED] wrote: > > How would I check if a certain file exists in a certain directory? > > I'm already using File::Find to process a bunch of mp3's, and before I > move/copy them to a different folder, I want to check if the file already > exists. > > -- > T

Re: checking if a file exists

2001-11-22 Thread Daniel Gardner
Thursday, November 22, 2001, 2:19:16 PM, [EMAIL PROTECTED] wrote: GFFC> How would I check if a certain file exists in a certain directory? GFFC> I'm already using File::Find to process a bunch of mp3's, and before I GFFC> move/copy them to a different folder, I want to check if the file already

checking if a file exists

2001-11-22 Thread Greg . Froese
How would I check if a certain file exists in a certain directory? I'm already using File::Find to process a bunch of mp3's, and before I move/copy them to a different folder, I want to check if the file already exists. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-m

Re: SALT in CRYPT!!

2001-11-22 Thread chris . ball
On Thu, 2001-11-22 at 06:38, nafiseh saberi wrote: > how does crypt work in adduser function ?? > and... > how does it use from salt... I seem to recall our very own Japhy writing a good tutorial on the use of crypt(). It's at: http://www.crusoe.net/~jeffp/docs/crypt Hope this helps, - ~C. -

Re: NET::TELNET

2001-11-22 Thread Matt C.
Try to use the logging features of this module, which will almost certainly help. It'll create a nice text file for each side of the telnet session that will allow you to see what's going on. If you're running SSH on the box (probably a better idea anyhow), try the Net::SSH::Perl module, which I

Re:slash issue on a regex

2001-11-22 Thread Jorge Goncalvez
Hi, I have this: $buf=~(/d:/dhs3mgr/e1401/dhs3linux/fr/cpiofile/) but it didn't work.How can i do to escape the /. Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

reading and writing to a text file

2001-11-22 Thread Seyi Ogunbona
Hi, Two things. Firstly, I would like to know if it is possible to write in a program or script in perl to read a set of two numbers seperated by a comma, I have exported to a text file and the put the numbers in another table as arguements. Secondly, can you give me directions if yes to a

Re: Getting past "Use of uninitialized value..."

2001-11-22 Thread Scott R. Godin
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Etienne Marcotte) wrote: > I have: > > my $q = new CGI; > $q->import_names('IN'); > > my $ID = lib::auth_user($IN::UsrName,$IN::UsrPass); > > sub auth_user returns a session ID kind of data. > > $IN::UsrName and $IN::UsrPass are used only on

Re: Name of current sub?

2001-11-22 Thread Scott R. Godin
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Chuck Tomasi) wrote: > I find myself writing this sort of thing a lot: > > print STDERR "program.pl: subname(): debug statement\n"; > > I know $0 can be used for programname.pl (except it returns the full path to > the program), is there some

Re: extracting *just* matched text

2001-11-22 Thread Scott R. Godin
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Waspcatcher) wrote: > hi, > how does one extract *just* the matched text in a regular expression, > e.g. > > my $text = "Hello 1234, come in"; > if ($text =~ /\d{4,4}/) > { > #grab just the 4 digit number > } > > thanks > > if ( $te

Re: -onChange

2001-11-22 Thread Djoko Priyono
On Wednesday 21 November 2001 01:48 am, Jenda Krynicky wrote: > From: Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> > > > On Nov 19, Jerry Preston said: > > >Trying to learn how to "-onChange", where can I find some good doc and > > >examples? If you're trying to learn about CGI.pm that

Re: getting ip address

2001-11-22 Thread Djoko Priyono
#! /usr/bin/perl use CGI; $q = new CGI; $ip = $q->remote_host; if ( $ip eq 'w.x.y.z') { # code } else { # code } -- Djoko Priyono System Programmer PT Dyviacom Intrabumi Tbk. Jakarta - Indonesia On Wednesday 21 November 2001 08:02 pm, Rahul Garg wrote: > Hi everybo

wardialing ...

2001-11-22 Thread Henrik Falkenthros
Gents, is there anybody who knows of any piece of perl code for the use of trad. wardialing ? regards, Henrik Falkenthros [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Counting White Spaces in perl

2001-11-22 Thread Harry Varvarigos
I am trying to count the no. of blanks that appear and then break out of the loop when all arrays' last elements are blanks/spaces. I think sprintf will do it but I can't figure it out: printf DGSUM"++\n"; for $sr(1 ..9)

Re: shadow file

2001-11-22 Thread Maxim Berlin
Hello nafiseh, Thursday, November 22, 2001, nafiseh saberi <[EMAIL PROTECTED]> wrote: ns> hi. ns> I find one source code about crypt function. ns> I put it in my source code,but ns> it gives this error to me : ns> " useradd: unable to lock password file ". ns> i want to add user from web

friend

2001-11-22 Thread nafiseh saberi
hi all. I need some yahoo id from yours that work online. for associate in problems better. the time in here is 12.am. my id is [EMAIL PROTECTED] I am online from 9 a.m till 15.p.m thx alot. Nafiseh Saberi

shadow file

2001-11-22 Thread nafiseh saberi
hi. I find one source code about crypt function. I put it in my source code,but it gives this error to me : " useradd: unable to lock password file ". i want to add user from web with useradd function. would you help me ?? thx alot. I am waiting_ ___