Mcrypt module

[Tyler Longren]

Hi,

I haven't written anything in perl for quite some time, so I'm pretty rusty.
Does anyone have a perl version of this PHP code:

function encrypt($string, $key) {
 // version 2.4.x of lib mcrypt
 $td = mcrypt_module_open (MCRYPT_TripleDES, "", MCRYPT_MODE_ECB, "");
 $iv = mcrypt_create_iv (mcrypt_enc_get_iv_size ($td), MCRYPT_RAND);
 mcrypt_generic_init ($td, $key, $iv);
 $crypted = mcrypt_generic ($td, $string);
 mcrypt_generic_end ($td);
 return bin2hex($crypted);
}
function decrypt($string, $key) {
 //version 2.4.x of lib mcrypt
 $string = hex2bin($string);
 $td = mcrypt_module_open (MCRYPT_TripleDES, "", MCRYPT_MODE_ECB, "");
 $iv = mcrypt_create_iv (mcrypt_enc_get_iv_size ($td), MCRYPT_RAND);
 mcrypt_generic_init ($td, $key, $iv);
 $decrypted = mdecrypt_generic ($td, $string);
 mcrypt_generic_end ($td);
 return trim($decrypted);
}

Thanks,
Tyler


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Crypt::Blowfish errors on line 56

[Tyler Longren]

Hi Folks,

The code at http://longren.no-ip.org/tyler/blowfish.pl encrypts some $data.
Once the data is encrypted, the hex value should be stored in $ciphertext.
$plaintext should have the original data that's in $data.

When I run this code, I recieve this error:
"input must be 8 bytes long at
/usr/lib/perl5/site_perl/i386-linux/Crypt/Blowfish.pm line 56."

Does anybody know why this happens?

You can view the code here:
http://longren.no-ip.org/tyler/blowfish.pl

Thanks,
Tyler


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Crypt::Blowfish errors on line 56

[Tyler Longren]

I found that if I change $data to "12345678", it works.  How can I encrypt a
string that has more than 8 characters?

Thanks,
Tyler

- Original Message -----
From: "Tyler Longren" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 28, 2003 3:47 PM
Subject: Crypt::Blowfish errors on line 56


> Hi Folks,
>
> The code at http://longren.no-ip.org/tyler/blowfish.pl encrypts some
$data.
> Once the data is encrypted, the hex value should be stored in $ciphertext.
> $plaintext should have the original data that's in $data.
>
> When I run this code, I recieve this error:
> "input must be 8 bytes long at
> /usr/lib/perl5/site_perl/i386-linux/Crypt/Blowfish.pm line 56."
>
> Does anybody know why this happens?
>
> You can view the code here:
> http://longren.no-ip.org/tyler/blowfish.pl
>
> Thanks,
> Tyler
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

getopt:std questions

[Tyler Longren]

Hello everyone,

Here's a section of code:
my %options;
my $u;
use strict;
use Getopt::Std;

getopts("dwmyau:", \%options);

How can I get the value of the '-u' option and print it to the screen?

I've tried this:
$u = $options{u};
print "$u";
but that doesn't work...it doesn't print anything.  Can anybody shed some
light on this for me?

Thanks,
Tyler Longren

Re: getopt:std questions

[Tyler Longren]

Ahh..that worked wonderfully.  Thank you very much!

Tyler

- Original Message -
From: "Ela Jarecka" <[EMAIL PROTECTED]>
To: "'Tyler Longren'" <[EMAIL PROTECTED]>
Cc: "Beginners list (E-Mail)" <[EMAIL PROTECTED]>
Sent: Wednesday, June 27, 2001 9:39 AM
Subject: AW: getopt:std questions


I use it like this ( checking program options ):

my $usage = "$0 -s  -u  -b  -e  -f
\n";
my %opts;
getopts('b:e:s:u:f:', \%opts);

my $servdata = $opts{s};
my $userdata = $opts{u};
my $begtime = $opts{b};
my $endtime = $opts{e};
my $reqdata = $opts{f};

Cheers,
Ela

> -Ursprüngliche Nachricht-
> Von: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Gesendet: Mittwoch, 27. Juni 2001 16:24
> An: Perl Beginners
> Betreff: getopt:std questions
>
>
> Hello everyone,
>
> Here's a section of code:
> my %options;
> my $u;
> use strict;
> use Getopt::Std;
>
> getopts("dwmyau:", \%options);
>
> How can I get the value of the '-u' option and print it to the screen?
>
> I've tried this:
> $u = $options{u};
> print "$u";
> but that doesn't work...it doesn't print anything.  Can
> anybody shed some
> light on this for me?
>
> Thanks,
> Tyler Longren
>
>

arrays

[Tyler Longren]

Hello everyone,

I'm just starting perl.  I want to search through httpd.conf and get the
ServerName from each virtual host.
Ex:

DocumentRoot /home2/ploo.net/www
ServerName www.ploo.net
CustomLog /home2/ploo.net/logs/access_log
ErrorLog /home2/ploo.net/logs/error_log
TransferLog /home2/ploo.net/logs/transfer_log
ScriptAlias /cgi-bin/ /home2/ploo.net/cgi-bin/


DocumentRoot /home2/test.net/www
ServerName www.test.net
CustomLog /home2/test.net/logs/access_log
ErrorLog /home2/test.net/logs/error_log
TransferLog /home2/test.net/logs/transfer_log
ScriptAlias /cgi-bin/ /home2/test.net/cgi-bin/


Could I get the ServerName values put into an array so I can do something
with each different ServerName?  Thank you everyone.

Tyler

Re: arrays

[Tyler Longren]

Thank you everyone.  All of you have been a great help.  That is exactly
what I need.  I'll figure out how to get just the servernames from the
VirtualHosts myself (I'll try anyway)  ;-)

Thanks!
Tyler

- Original Message -
From: "Brett W. McCoy" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Thursday, June 28, 2001 9:18 AM
Subject: Re: arrays


> On Thu, 28 Jun 2001, Tyler Longren wrote:
>
> > I'm just starting perl.  I want to search through httpd.conf and get the
> > ServerName from each virtual host.
>
> Sure:
>
> open(APACHE_CONF, "httpd.conf") or die "Could not open Apache config file:
> $!\n";
>
> my @servernames;
>
> while() {
>
> if(/^ServerName\s(.*)$/i) {
> push @servernames, $1;
> }
> }
>
> close(APACHE_CONF);
>
> -- Brett
>
>http://www.chapelperilous.net/btfwk/
> 
> Tuesday After Lunch is the cosmic time of the week.

Re: arrays

[Tyler Longren]

One more quick question.  How can I count the values in an array
(@servernames)?
I want to print my servernames seperately:

$i=0;
while ($i <= $num_servers) {
print "$servernames[$i]\n";
}
Something like that (I don't know if that will even work in perl...but it
does in PHP).

Thanks!
Tyler


- Original Message -
From: "Brett W. McCoy" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Thursday, June 28, 2001 9:18 AM
Subject: Re: arrays


> On Thu, 28 Jun 2001, Tyler Longren wrote:
>
> > I'm just starting perl.  I want to search through httpd.conf and get the
> > ServerName from each virtual host.
>
> Sure:
>
> open(APACHE_CONF, "httpd.conf") or die "Could not open Apache config file:
> $!\n";
>
> my @servernames;
>
> while() {
>
> if(/^ServerName\s(.*)$/i) {
> push @servernames, $1;
> }
> }
>
> close(APACHE_CONF);
>
> -- Brett
>
>http://www.chapelperilous.net/btfwk/
> 
> Tuesday After Lunch is the cosmic time of the week.

Re: Editor

[Tyler Longren]

Context is my choice:
http://www.fixedsys.com/context/

Tyler

- Original Message -
From: "Bill Pierson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 03, 2001 2:33 PM
Subject: Editor


Hello again, all.

May I get some suggestions for any Windows-based PERL development tools?
Preferably, free ones?

Thanks,
--Bill

Re: modules & path to perl

[Tyler Longren]

do a 'which perl' at the command line to get the location of perl.  Not sure
about the modules.  To get the version of perl, do 'perl --version' at the
command line.

Tyler
- Original Message -
From: "David Gilden" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 05, 2001 12:29 PM
Subject: modules & path to perl


> How do I list what my ISP has on there server in terms of Modules?
> And what is the command (at the command line) to tell me what version
> The server has on it / and or the path to perl.
> Thanks
>
> Dave G.
>
> 
> Looking for Web Talent, You found it!
> portfolio: www.coraconnection.com/web/
> email: [EMAIL PROTECTED]
> tel/fax: (860) 231-9988
> 

Re: command line flags

[Tyler Longren]

Example:
use Getopt::Std;
getopts("dwmy", \%options);
# If no command line option is specified print the usage.
if (!defined $options{d} && !defined $options{w} && !defined $options{m} &&
!de$
print "
Usage: log.pl < -d -w -m -y >
-d   :  generate log for last 24 hours
-w   :  generate log for last week
-m   :  generate log for last month
-y   :  generate log for last year\n";
exit;
}

Tyler

- Original Message -
From: "saliminl" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 09, 2001 3:11 PM
Subject: command line flags


> How do I take, for example, a file input name and command line flags when
> opening a perl script?  My desired input style is:
>
> % eproc -n FILENAME -m -d  etc.
>
> I need to make everything a scalar.  Thanks
>
> Neema Salimi
> [EMAIL PROTECTED]

Re: timer/display

[Tyler Longren]

I've been playing with this spinning wheel thing.  I've read through this
thread:


I don't know why this doesn't work:

#!/usr/bin/perl -w
use strict;
$| = 1;
use Time::HiRes qw(usleep);
my @windmill=("\\", "|", "/", "-");
for(my $i=0; $i <= 1; $i++) {
print "$windmill[$_ & 3]\r";
usleep(5);
}

I get this error:
Use of uninitialized value in bitwise and (&) at ./test.pl line 7.

Thanks everyone,
Tyler

- Original Message -
From: "Chas Owens" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 09, 2001 4:42 PM
Subject: Re: timer/display


> On 09 Jul 2001 17:39:15 -0400, Chas Owens wrote:
> > On 09 Jul 2001 14:03:47 -0700, [EMAIL PROTECTED] wrote:
> > > This will sound silly.
> > >
> > > I need to come up with a simple status indicator of some sort. I have
in
> > > mind a "spinner." You've seen them before I'm sure, where there's a
'-'
> > > then it changes to '\' then '|' then '/' then '-' and so forth, so
that it
> > > appears to be spinning. Actually, I really don't care what the status
> > > indicator looks like, I just want it to be easy to code and move in
such a
> > > way that long-time Windows users will understand that the computer is
> > > working and has not hung. My solution so far is just to tuck a print
"*"
> > > thing in a while loop that's already present doing other work. This is
> > > inelegant though, as it prints just thousands of asterisks. I was
hoping
> > > someone knew of a better way. Is there a module?
> > >
> > > (I have a DBI search tool that can handle lots of text strings matched
> > > against a large db. It takes 2-15 minutes to run and users keep
killing the
> > > program because they think it's "stuck." For some reason, they never
read
> > > the instruction line, printed to the screen, that says "This may take
up to
> > > 15 minutes.")
> > >
> > > Thanks,
> > > John
> > >
> > >
> >
> > my @windmill = ("\\", "|", "/", "-");
> >
> > .
> > .
> > .
> > my $i = 0;
> > print "$windmill[3 & $i]\r";
> > while (this) {
> > .
> > .
> > .
> > $i++;
> > print "$windmill[3 & $i]\r";
> > }
> >
> > --
> > Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> > Hail Eris, Hack Linux!
> >
> >
> >
>
> Oops, leave off the first \r and change the second print to read
>
> print "\r$windmill[3 & $i]";
>
> I need more caffine.
>
> --
> Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> Pzat!
>

Re: timer/display

[Tyler Longren]

I have tried that.  Here's the error I get from that:
Use of uninitialized value in modulus (%) at ./test.pl line 7.

Tyler

- Original Message -
From: "Chas Owens" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 10, 2001 9:19 AM
Subject: Re: timer/display


> Try
>
> print "$windmill[$_ % 4]\r"
>
> instead.
>
>
> On 10 Jul 2001 09:04:18 -0500, Tyler Longren wrote:
> > I've been playing with this spinning wheel thing.  I've read through
this
> > thread:
> > <http://archive.develooper.com/beginners%40perl.org/msg04192.html>
> >
> > I don't know why this doesn't work:
> >
> > #!/usr/bin/perl -w
> > use strict;
> > $| = 1;
> > use Time::HiRes qw(usleep);
> > my @windmill=("\\", "|", "/", "-");
> > for(my $i=0; $i <= 1; $i++) {
> > print "$windmill[$_ & 3]\r";
> > usleep(5);
> > }
> >
> > I get this error:
> > Use of uninitialized value in bitwise and (&) at ./test.pl line 7.
> >
> > Thanks everyone,
> > Tyler
> >
> > - Original Message -
> > From: "Chas Owens" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Monday, July 09, 2001 4:42 PM
> > Subject: Re: timer/display
> >
> >
> > > On 09 Jul 2001 17:39:15 -0400, Chas Owens wrote:
> > > > On 09 Jul 2001 14:03:47 -0700, [EMAIL PROTECTED] wrote:
> > > > > This will sound silly.
> > > > >
> > > > > I need to come up with a simple status indicator of some sort. I
have
> > in
> > > > > mind a "spinner." You've seen them before I'm sure, where there's
a
> > '-'
> > > > > then it changes to '\' then '|' then '/' then '-' and so forth, so
> > that it
> > > > > appears to be spinning. Actually, I really don't care what the
status
> > > > > indicator looks like, I just want it to be easy to code and move
in
> > such a
> > > > > way that long-time Windows users will understand that the computer
is
> > > > > working and has not hung. My solution so far is just to tuck a
print
> > "*"
> > > > > thing in a while loop that's already present doing other work.
This is
> > > > > inelegant though, as it prints just thousands of asterisks. I was
> > hoping
> > > > > someone knew of a better way. Is there a module?
> > > > >
> > > > > (I have a DBI search tool that can handle lots of text strings
matched
> > > > > against a large db. It takes 2-15 minutes to run and users keep
> > killing the
> > > > > program because they think it's "stuck." For some reason, they
never
> > read
> > > > > the instruction line, printed to the screen, that says "This may
take
> > up to
> > > > > 15 minutes.")
> > > > >
> > > > > Thanks,
> > > > > John
> > > > >
> > > > >
> > > >
> > > > my @windmill = ("\\", "|", "/", "-");
> > > >
> > > > .
> > > > .
> > > > .
> > > > my $i = 0;
> > > > print "$windmill[3 & $i]\r";
> > > > while (this) {
> > > > .
> > > > .
> > > > .
> > > > $i++;
> > > > print "$windmill[3 & $i]\r";
> > > > }
> > > >
> > > > --
> > > > Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> > > > Hail Eris, Hack Linux!
> > > >
> > > >
> > > >
> > >
> > > Oops, leave off the first \r and change the second print to read
> > >
> > > print "\r$windmill[3 & $i]";
> > >
> > > I need more caffine.
> > >
> > > --
> > > Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> > > Pzat!
> > >
> >
> >
> --
> Today is Sweetmorn, the 45th day of Confusion in the YOLD 3167
>
>
>

Re: timer/display

[Tyler Longren]

this for loop works:

for(my $i=0; $i <= 1; $i++) {
print "$windmill[$i % 4]\r";
usleep(5);
}

I changed the $_ to $i...

Tyler

- Original Message -
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, July 10, 2001 9:19 AM
Subject: Re: timer/display


> On Jul 10, Tyler Longren said:
>
> >#!/usr/bin/perl -w
> >use strict;
> >$| = 1;
> >use Time::HiRes qw(usleep);
> >my @windmill=("\\", "|", "/", "-");
> >for(my $i=0; $i <= 1; $i++) {
> >print "$windmill[$_ & 3]\r";
> >usleep(5);
> >}
> >
> >I get this error:
> >Use of uninitialized value in bitwise and (&) at ./test.pl line 7.
>
> Your for loop uses $i... and your & expression uses $_.
>
> I'd rewrite the for loop as
>
>   for (0 .. 10_000) { ... }
>
> anyway.
>
> --
> Jeff "japhy" Pinyan  [EMAIL PROTECTED]  http://www.pobox.com/~japhy/
> I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun.
> Are you a Monk?  http://www.perlmonks.com/ http://forums.perlguru.com/
> Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/
> Acacia Fraternity, Rensselaer Chapter. Brother #734
> **  Manning Publications, Co, is publishing my Perl Regex book  **

if something equals nothing

[Tyler Longren]

How do I do:
if ($something == "") {
# do something
}

in perl?

Thanks,
Tyler



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: if something equals nothing

[Tyler Longren]

That doesn't seem to work.  I want if a variable doesn't equal anything,
then do something.  Here's a piece:
if ($options{a} eq "" && $options{a} eq "") {
print "
Usage: log.pl [-d] -a -i [n]\n
-d   :  specify device.  If nothing, eth0 is used
-a*  :  specify alias number
-i*  :  specify ip number to assign to alias
-n   :  specify netmask.  If nothing, 255.255.255.0 is used
Options with a * are required!\n\n";
exit;
}

- Original Message -
From: "Mooney Christophe-CMOONEY1" <[EMAIL PROTECTED]>
To: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Tuesday, July 17, 2001 12:59 PM
Subject: RE: if something equals nothing


> Exactly like that, except using 'eq' instead of '=='.
> A slightly easier way, though, would be to say
>
> if (!$something) { ... blah blah ... }
>
> Since $something will return false in a boolean context (if it is empty)
>
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, July 17, 2001 12:56 PM
> To: Perl Beginners
> Subject: if something equals nothing
>
>
> How do I do:
> if ($something == "") {
> # do something
> }
>
> in perl?
>
> Thanks,
> Tyler
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: if something equals nothing

[Tyler Longren]

Sorry for not providing enough of the code.  Here's more that will help.

use strict;
use Getopt::Std;
getopts("d:a:i:n:", \my %options);
if (!defined $options{a} && !defined $options{i}) {
if ($options{a} eq "" && $options{i} eq "") {
print "
Usage: log.pl [-d] -a -i [n]\n
-d   :  specify device.  If nothing, eth0 is used
-a*  :  specify alias number
-i*  :  specify ip number to assign to alias
-n   :  specify netmask.  If nothing, 255.255.255.0 is used
Options with a * are required!\n\n";
exit;
}
}
else {
# do whatever

If the -i and -a flags aren't specified the usage gets printed.  I also want
to check to see if -i and -a have something behind them.  If they're
specified, but there's nothing behind them, the usage should be printed then
too.

Thanks everyone,
Tyler

- Original Message -
From: "daniels tashi robert" <[EMAIL PROTECTED]>
To: "Mooney Christophe-CMOONEY1" <[EMAIL PROTECTED]>
Cc: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Tuesday, July 17, 2001 1:09 PM
Subject: RE: if something equals nothing


>
> It's worth mentioning that there are a few different kinds of nothings.
> The ones I know that apply to ordinary (scalar) variables are
> the number zero, the empty string, with or without a null character
> to terminate it, boolean false, and undef, the value of variables that
> don't exist yet.  A lot of the time they are implicitly converted back
> and forth, but sometimes you need to know the difference:
>
> if ($var == 0) {numerical zero}
> if ($var eq "") {empty string}
> if (!$var) {boolean false}
> if (! defined($var) ) {undef}



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: if something equals nothing

[Tyler Longren]

no...it was supposed to be $options{a} and $options{i}... I accidentally put
a twice in the email
- Original Message -
From: "Brett W. McCoy" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: "Mooney Christophe-CMOONEY1" <[EMAIL PROTECTED]>; "Perl Beginners"
<[EMAIL PROTECTED]>
Sent: Tuesday, July 17, 2001 1:26 PM
Subject: Re: if something equals nothing


> On Tue, 17 Jul 2001, Tyler Longren wrote:
>
> > That doesn't seem to work.  I want if a variable doesn't equal anything,
> > then do something.  Here's a piece:
> > if ($options{a} eq "" && $options{a} eq "") {
>
> You are comparing the same thing here twice???
>
> How about
>
> if ( !defined($options{a}) && !defined($options{i}) ) {
>
>   ...
> }
>
> Usually for usage messages, though, I do something like:
>
> my $usage =<<"USAGE";
> usage stuff
> usage stuff
> USAGE
>
> my $someval = $ARGV[0] or die $usage;
>
> -- Brett
>http://www.chapelperilous.net/btfwk/
> 
> You need no longer worry about the future.  This time tomorrow you'll be
dead.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

looking at rows in text files

[Tyler Longren]

Hello everyone,

I have a file that contains a few domain names, and their dns servers (kind
of like a zonefile).  Here's the format:
my.comdns1.blah.com
me.comdns1.blah.com
we.comdns1.blah.com
you.com   dns1.blah.com

How can I get ONLY the domain's out of that file, and print each domain to
the screen.  I used this to search through httpd.conf once:
open(APACHE_CONF, "/usr/local/apache/conf/httpd.conf") or die "Could not
open Apache config file:\n$!\n";
my @servernames;
while() {
push (@servernames, $1)
if/ServerName\swww.(.*)/;
}

Can anyone help me?

Thanks once again,
Tyler


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: looking at rows in text files

[Tyler Longren]

Here's what I have now:
while() {
push (my @list, $1)
if /(\S+)/;
}
foreach my $h(my @list) {
print "$h";
}

I need to be able to access each individual host in the "FP" file pointer.
This doesn't print anything to the screen.

Really, thank you!

- Original Message -
From: "Jos I. Boumans" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, July 18, 2001 1:29 PM
Subject: Re: looking at rows in text files


> it's essentially the same thing, only instead of handing the match to the
> print operator, we store it in @list
>
> like so:
>
> open(FP, "$tempfile"); # Open $tempfile for reading
> while() { push @list, /(\S+)/ }
>
> $list[0] will hold the first match, $list[1] the 2nd and so forth
>
> hope this helps,
>
> Jos
>
> > Hi Jos,
> >
> > Perhaps you could advise me.  How can I put the hosts pulled from
> $tempfile
> > into an array or variable?
> > open(FP, "$tempfile"); # Open $tempfile for reading
> > while() {
> > print /(\S+)/;
> > print "\n";
> >
> > }
> >
> > Thank you,
> > Tyler
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: looking at rows in text files

[Tyler Longren]

Why does this work:
open(APACHE_CONF, "/usr/local/apache/conf/httpd.conf") or die "Could
not open Apache config file:\n$!\n";
my @servernames;
while() {
push (@servernames, $1)
if/ServerName\swww.(.*)/;
}
close(APACHE_CONF);
my $h;
foreach $h(@servernames) {
print $h;
#blah blah blah

But this doesn't:

open(FP, "$tempfile"); # Open $tempfile for reading
my $i=0;
while() {
push (@list, $1)
if /(.com\S)/;
}
foreach my $h(@list) {
print "$h";
}

They're more or less the same thing except the regexps are different

Tyler

- Original Message -
From: "Jos I. Boumans" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, July 18, 2001 2:25 PM
Subject: Re: looking at rows in text files


> using 'my' within the while loop will make it lose it's value once the
loop
> exits and it will be reset every time you read in a new line
> declare 'my @list' above the loop, and you'll not have that problem.
>
> for readabillity, use:
> if(/(\S+/){ push @list, $1 }
> altho that's a bit superfluous i think, as i pointed out in my example
> earlier
>
> read up on scoping on MJD's site:
> http://perl.plover.com/FAQs/Namespaces.html
>
> Jos


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: system interaction

[Tyler Longren]

Why can't you do that with the regular command line?  change to a directory
with "cd dir_name", change to a drive by typing the drive name "C:", "A:"

Copy files with the "copy" command.

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com


- Original Message -
From: "Craig S Monroe" <[EMAIL PROTECTED]>
To: "Brett W. McCoy" <[EMAIL PROTECTED]>
Cc: "Beginners@Perl (E-mail)" <[EMAIL PROTECTED]>
Sent: Monday, July 23, 2001 1:10 PM
Subject: Re: system interaction


> I need to be able to change directories, copy files, etc...
>
> Craig
> [EMAIL PROTECTED]
> Pager
> Numeric: 1-877-895-3558
> Email pager: [EMAIL PROTECTED]
> --
> You will never find time for anything.
> If you want time, you must make it.
>
> Charles Buxton
>
> - Original Message -
> From: "Brett W. McCoy" <[EMAIL PROTECTED]>
> To: "Craig S Monroe" <[EMAIL PROTECTED]>
> Cc: "Beginners@Perl (E-mail)" <[EMAIL PROTECTED]>
> Sent: Monday, July 23, 2001 2:00 PM
> Subject: Re: system interaction
>
>
> On Mon, 23 Jul 2001, Craig S Monroe wrote:
>
> > I couldn't find anything relevant.
> > Are there any modules that deal with system interaction.
> > I need to navigate around a M$ machine and system commands only do so
> > much...
>
> Can you be more specific?  What kind of system interactions?
>
> -- Brett
>http://www.chapelperilous.net/btfwk/
> 
> Q: What's the difference between Bell Labs and the Boy Scouts of America?
> A: The Boy Scouts have adult supervision.
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

output of a command to a file

[Tyler Longren]

Hello everyone,

How can I take the output of a command, put into a scalar, and then put it
into a file?  Here's a portion of what I have:
open(FP, ">>$outfile");
my $command = `whois $h | grep 'created on'`;
print "$command";
print FP "$h $command\n";

The above code doesn't work though.  There's nothing in the $command
variable.  The only thing that gets printed to $outfile is $h.

Thanks everyone

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

chompping periods

[Tyler Longren]

Is there a way to chomp a period?
Example:
this is a test.

to

this is a test

I just need to remove the period from the end of a string.

Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

string into an array

[Tyler Longren]

Hello everyone,

I'm grepping a file for a short string (dns3):
my $command = "cat $file | grep -i dns3";
my $exec = `$command`;

This will give me many lines for a result.  If I did a print "$exec";
all of the data would be printed at once.  How Do I get the results
from the grep and place them into an array?  I want to do it result
by result.  So the first result could be $array[0], the second could
be $array[1], and so on...

Know what I mean?  If not, don't pay any attention.  Thanks everyone!

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

colored text

[Tyler Longren]

Hello everyone,

I was wondering if there was anyway to print colored text at the command
line.  I'm using linux.  Something kind of like how the directories and
executables are colored when you do an 'ls' in linux...

Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: colored text

[Tyler Longren]

That's pretty cool.  Works great.  Thank you!

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com



On Thu, 9 Aug 2001 08:33:58 -0700 (PDT)
Mark Ross <[EMAIL PROTECTED]> wrote:

> > I was wondering if there was anyway to print colored
> > text at the command
> > line.
> 
> I actually was looking for this today as well. Check
> out:
>
http://www.perldoc.com/perl5.6/pod/perlfaq8.html#How%20do%20I%20print%20something%20out%20in%20color%3f
> 
> 
> > Thanks,
> > Tyler Longren
> > Captain Jack Communications
> > [EMAIL PROTECTED]
> > www.captainjack.com
> 
> __
> Do You Yahoo!?
> Make international calls for as low as $.04/minute with Yahoo! Messenger
> http://phonecard.yahoo.com/
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

result of regexps into a string

[Tyler Longren]

Hello everyone,

I have a string from an apache log file:
192.168.1.1 - - [05/Jul/2001:22:48:51 -0500] "GET /test.php HTTP/1.1"
200 995
How could I get the IP (192.168.1.1) out of that?  I've been playing
with regexps like this:
if/(.*)\s-\s-\s/;

but I have no idea if that's correct or not.  Can anybody offer any
help?

Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

number of elements in array is -1?

[Tyler Longren]

Hello everyone,

I have a problem.  I just want to print the number of elements in an
array.  Here's the code:
my @scans;
my $last_host = "192.168.1.1";
while () {
  push (@scans, $_)
  if m/$last_host/i;
}

shouldn't that put all of the results into the @scans array?  I know
there'd just be a bunch of the same value.  
$array[0] would equal 192.168.1.1
and $array[1] would equal 192.168.1.1

I try to show the number of elements in the array like so:
print "$#scans";

But that prints "-1".  I know for a fact there are at least 2 entries in
LOGFILE that have an IP of 192.168.1.1.

Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: number of elements in array is -1?

[Tyler Longren]

well, no, I'm not checking.  But it is open correctly because I use it
earlier in the script and it never gets closed until the very end.


On Fri, 10 Aug 2001 09:22:11 -0500
Mooney Christophe-CMOONEY1 <[EMAIL PROTECTED]> wrote:

> if $#scans==-1, then the array is empty (of course!)
> 
> Are you checking to make sure LOGFILE opened correctly?
> 
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Friday, August 10, 2001 9:19 AM
> To: Perl-Beginners
> Subject: number of elements in array is -1?
> 
> 
> Hello everyone,
> 
> I have a problem.  I just want to print the number of elements in an
> array.  Here's the code:
> my @scans;
> my $last_host = "192.168.1.1";
> while () {
>   push (@scans, $_)
>   if m/$last_host/i;
> }
> 
> shouldn't that put all of the results into the @scans array?  I know
> there'd just be a bunch of the same value.  
> $array[0] would equal 192.168.1.1
> and $array[1] would equal 192.168.1.1
> 
> I try to show the number of elements in the array like so:
> print "$#scans";
> 
> But that prints "-1".  I know for a fact there are at least 2 entries in
> LOGFILE that have an IP of 192.168.1.1.
> 
> Thanks,
> Tyler Longren
> Captain Jack Communications
> [EMAIL PROTECTED]
> www.captainjack.com
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: number of elements in array is -1?

[Tyler Longren]

I did:
print "$scans[0]";
and nothing is printed...where 192.168.1.1 SHOULD be printed...
here's what I have:
open (LOGFILE, $log_file) || die ("Could not open $log_file: $!");
my @array;
while () {
  chomp;
  push (@array, $_)
  if m/ida/i;
}
my $last_host = "192.168.1.1";
my @scans;
while () {
  push (@scans, $_)
  if m/$last_host/i;
}
close(LOGFILE);
print "$scans[0]";



On Fri, 10 Aug 2001 10:28:23 -0400 (EDT)
"Brett W. McCoy" <[EMAIL PROTECTED]> wrote:

> On Fri, 10 Aug 2001, Tyler Longren wrote:
> 
> > I try to show the number of elements in the array like so:
> > print "$#scans";
> 
> That actually gives the index of the last element, not the actual count
> of elements.  You want:
> 
> print scalar(@scans);
> 
> > But that prints "-1".  I know for a fact there are at least 2 entries
> in
> > LOGFILE that have an IP of 192.168.1.1.
> 
> Did you dump the array to see if they are actually in there?
> 
> -- Brett
>  http://www.chapelperilous.net/btfwk/
> 
> Your conscience never stops you from doing anything.  It just stops you
> from enjoying it.
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: number of elements in array is -1?

[Tyler Longren]

Ahh...I just started wondering if it stopped at the end of the file...That
should fix it then.

Thank you everyone

On Fri, 10 Aug 2001 09:31:36 -0500
Mooney Christophe-CMOONEY1 <[EMAIL PROTECTED]> wrote:

> I thought so.  You read through the entire file, so by the time you get
> to
> your second while loop, you're at the very end of the file.  You need to
> rewind.
> 
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Friday, August 10, 2001 9:29 AM
> To: Brett W. McCoy
> Cc: [EMAIL PROTECTED]
> Subject: Re: number of elements in array is -1?
> 
> 
> I did:
> print "$scans[0]";
> and nothing is printed...where 192.168.1.1 SHOULD be printed...
> here's what I have:
> open (LOGFILE, $log_file) || die ("Could not open $log_file: $!");
> my @array;
> while () {
>   chomp;
>   push (@array, $_)
>   if m/ida/i;
> }
> my $last_host = "192.168.1.1";
> my @scans;
> while () {
>   push (@scans, $_)
>   if m/$last_host/i;
> }
> close(LOGFILE);
> print "$scans[0]";
> 
> 
> 
> On Fri, 10 Aug 2001 10:28:23 -0400 (EDT)
> "Brett W. McCoy" <[EMAIL PROTECTED]> wrote:
> 
> > On Fri, 10 Aug 2001, Tyler Longren wrote:
> > 
> > > I try to show the number of elements in the array like so:
> > > print "$#scans";
> > 
> > That actually gives the index of the last element, not the actual
> count
> > of elements.  You want:
> > 
> > print scalar(@scans);
> > 
> > > But that prints "-1".  I know for a fact there are at least 2
> entries
> > in
> > > LOGFILE that have an IP of 192.168.1.1.
> > 
> > Did you dump the array to see if they are actually in there?
> > 
> > -- Brett
> >http://www.chapelperilous.net/btfwk/
> >
> 
> > Your conscience never stops you from doing anything.  It just stops
> you
> > from enjoying it.
> > 
> > 
> > -- 
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Reading magnetic stripe data with perl

[Tyler Longren]

This will be of some interest to you:
http://www.perldoc.com/perl5.6/pod/perlfaq8.html#How%20do%20I%20read%20and%20write%20the%20serial%20port%3f

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com



On Tue, 14 Aug 2001 16:48:39 +0100
"Julian M  Sawkins" <[EMAIL PROTECTED]> wrote:

> Hi,
> I'm _very_ new to Perl and was wondering if anyone can help me read a
> com
> port? 
> I intend to set up a linux machine to boot straight into a perl program
> which
> checks details from a card reader via the com port and compares them
> with
> details in a database, probably via a DBI. The intention is to be able
> to turn
> this machine on without monitor/mouse/kb (ruling out Winxx) and for it
> to 
> work on an IP network (ruling out DOS?). It also needs to be secure,
> hence 
> linux.
> All I need is perl code to read a line of input from ttyS0.
> Thanks
> Julian
> 
> 
> Julian Sawkins
> Analyst Programmer/DBA
> MIS Team
> University of Derby
> 
> Tel: (01332 59)1224/1239
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

status messages as the program progresses

[Tyler Longren]

Hello everyone,

I have a while loop that loops through a text file for quite a while (10
min or so).  Is there any way to print a status-type message while it's
looping through?
I did something like this now:

my $i=0;
while ($i le "1000") {
print "Processing\r";
}

And that works, but if I run the script like this:
./script.pl > test.txt

I get a BUNCH of "Processing" lines in test.txt.  Is there any other way I
can do this?

Thanks,

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: status messages as the program progresses

[Tyler Longren]

:)
forgot to add the $i++.
And that was just an example.

On Wed, 15 Aug 2001 10:55:58 -0400
Bob Showalter <[EMAIL PROTECTED]> wrote:

> > -Original Message-
> > From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, August 15, 2001 10:13 AM
> > To: Perl-Beginners
> > Subject: status messages as the program progresses
> > 
> > 
> > Hello everyone,
> > 
> > I have a while loop that loops through a text file for quite 
> > a while (10
> > min or so).  Is there any way to print a status-type message 
> > while it's
> > looping through?
> > I did something like this now:
> > 
> > my $i=0;
> > while ($i le "1000") {
> > print "Processing\r";
> > }
> 
> I hope that's not the whole script, since $i doesn't change :)
> 
> > 
> > And that works, but if I run the script like this:
> > ./script.pl > test.txt
> > 
> > I get a BUNCH of "Processing" lines in test.txt.  Is there 
> > any other way I
> > can do this?
> 
> One thing you can do is print the message every so many lines.
> 
>my $i = 0;
>while (<>)
>{
># (...process line here...)
>print "$i lines processed\n" unless ++$i % 100;
>}
> 
> This will print:
> 
>100 lines processed
>200 lines processed
>300 lines processed
> 
> and so on.
> 
> Or, you can print the message every so many seconds:
> 
>my $last_time = time;
>my $i = 0;
>while (<>)
>{
># (...process line here...)
>$i++;
>print("$i lines processed\n"), $last_time = time if time -
> $last_time
> > 30;
>}
> 
> This uses the variable $last_time to keep track of when a message was
> last
> printed. If this has been more than 30 seconds, a line is printed and
> the
> $last_time variable is updated.
> 
> These methods assume each iteration of the loop is relatively quick. If
> the
> processing for a single line can be lengthy, you can use a $SIG{ALRM}
> handler
> to cause an interrupt in the middle of processing. However, it's
> generally
> not a good idea to do I/O during an event handler, so you usually set a
> flag
> that you check somewhere inside your processing loop.
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

timeout

[Tyler Longren]

Hello list,

How should I go about setting a timeout for a section of code?  I've
written some code to do a whois on a few hosts.  Sometimes, it stay's on
one host for a few minutes, trying to connect to the whois server.

Here's the code:
foreach my $h(@list) {
my $result = `whois $h`;
}

Is there any way to add, say a 30 second timeout to this?  I've looked at
the man pages for whois, and there doesn't appear to be any way to set a
timeout in the whois command.

Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Clear

[Tyler Longren]

You use the "clear" command.
system("clear");

I'm not sure what it is to clear the screen in dos.

--
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com



On Mon, 20 Aug 2001 08:33:42 -0500
[EMAIL PROTECTED] wrote:

> I am writing lines of information to the STDOUT(Screen).  In Unix
> k-shell 
> I can execute the "clear" command to remove all lines from the screen.
> How 
> is this done in Perl? 
> 
> Thanks
> 
> Robert ( Kent ) Collins:  IBM Certified Solutions Expert
> Cell Phone:  214.632.3940
> DBA Intranet Site: http://ora3dba.i2.com/support
> "Major advancements in technology are indistinguishable from Magic"

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl script editor for NT/2000

[Tyler Longren]

Context.
It's free.
http://www.fixedsys.com/context/

It's all I use on my Windows boxen.

--
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com



On Mon, 20 Aug 2001 11:20:35 -0400
TOM TURPIN <[EMAIL PROTECTED]> wrote:

> Could someone suggest a good editor for writing scripts with?
> 
> Tom Turpin
> CAD System Administrator
> Ryobi Technologies, Inc.
> 1428 Pearman Dairy Road
> Anderson, SC 29625
> Office: (864) 964-3425
> Pager: (864) 390-5195
> Fax: (864) 964-
> Email: [EMAIL PROTECTED]
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

searching for a few things

[Tyler Longren]

Hello,

Can I do something like this:
my @array;
while () {
  chomp;
  push (@array, $_)
  if m/AAA/i;
  print "Reading logs...\r";
}

but have it search for more than one string (AAA being that one string)?
I'd like to search for AAA, BBB, and CCC and have all results be put into
@array.

Thanks everyone,
Tyler


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: NEW!!

[Tyler Longren]

www.perldoc.com is good.

Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com

- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, April 03, 2002 2:47 PM
Subject: NEW!!


> Hi All,
>
> I am new to Perl .Can anyone suggest me the sites from where i can
download the documentation and related information.
> Thanks in advance
>
> Regards,
>
> madhukar
>
>
> e-mail: [EMAIL PROTECTED]
>
>
> ---
> Pioneer Online Pvt. Ltd.
>  --The most realiable Internet Service Provider of AP.
http://www.pol.net.in
> visit :  http://www.pioneernetsolutions.com
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Moving on....

[Tyler Longren]

Hello,

I have an smp machine that I want to run two instances of setiathome
on.  I have two s@h directories (/root/.setiathome and
/root/.setiathome2).  I wrote this to run both of them at the same time
right from one script.  If I use the -a flag to run both of them, it
never moves on to start the setiathome in $setiathome2_dir.

How can I make it so both s@h clients get started?

Begin Code
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
getopts("12a", \my %options);
sub usage {
print "Usage: ./seti.pl [-1] [-2] [-a]
-1  :  Start the first directory of setiathome
-2  :  Start the second directory of setiathome
-a  :  Start both setiathome clients\n\n";
}
my $setiathome1_dir = "/root/.setiathome/";
my $setiathome2_dir = "/root/.setiathome2/";
sub setiathome1 {
`cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517`;
}

sub setiathome2 {
`cd $setiathome2_dir; ./setiathome -proxy 192.168.1.3:5517`;
}

if (defined $options{1}) {
setiathome1;
exit;
}
elsif (defined $options{2}) {
setiathome2;
exit;
}
elsif (defined $options{a}) {
setiathome1;
setiathome2;
exit;
}
else {
usage;
exit;
}
-End Code

If a better explanation is desired, e-mail me directly.

Thanks,
-- 
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Moving on....

[Tyler Longren]

Hi Anders,

I actually tried that already.  I thought it'd be the shell way of
solving it also, but it doesn't help any.  It just sits there running
the first one.  However, when I quit the perl script, the s@h client is
still running, and I don't want that.  :)

Thanks for the suggestion though,
Tyler


On Tue, 2002-06-18 at 11:14, Anders Holm wrote:
> Maybe your looking to start them in the background using & at the end of
> your command like such:
> 
> `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517 &`;
> 
> and
> 
> `cd $setiathome2_dir; ./setiathome -proxy 192.168.1.3:5517 &`;
> 
> , since I think that the first sub you have is waiting for the command to
> finish before running the second one.
> Not sure if this is the Perl way of solving this, bit it's the shell way of
> doing it so...
> 
> PPL: Let me know if there is a better way to do this one ;) I.e. a Perl
> way.. ;)
> 
> Best Regards
> 
> Anders Holm
> Critical Path Technical Support Engineer
> --
> Tel USA/Canada:   1 800 353 8437
> Tel Worldwide:+1 801 736 0806
> E-mail:       [EMAIL PROTECTED]
> Internet: http://support.cp.net
> 
> 
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: 18 June 2002 17:08
> To: Perl List
> Subject: Moving on
> 
> 
> Hello,
> 
> I have an smp machine that I want to run two instances of setiathome
> on.  I have two s@h directories (/root/.setiathome and
> /root/.setiathome2).  I wrote this to run both of them at the same time
> right from one script.  If I use the -a flag to run both of them, it
> never moves on to start the setiathome in $setiathome2_dir.
> 
> How can I make it so both s@h clients get started?
> 
> Begin Code
> #!/usr/bin/perl -w
> use strict;
> use Getopt::Std;
> getopts("12a", \my %options);
> sub usage {
>   print "Usage: ./seti.pl [-1] [-2] [-a]
>   -1  :  Start the first directory of setiathome
>   -2  :  Start the second directory of setiathome
>   -a  :  Start both setiathome clients\n\n";
> }
> my $setiathome1_dir = "/root/.setiathome/";
> my $setiathome2_dir = "/root/.setiathome2/";
> sub setiathome1 {
>   `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517`;
> }
> 
> sub setiathome2 {
>   `cd $setiathome2_dir; ./setiathome -proxy 192.168.1.3:5517`;
> }
> 
> if (defined $options{1}) {
>   setiathome1;
>   exit;
> }
> elsif (defined $options{2}) {
>   setiathome2;
>   exit;
> }
> elsif (defined $options{a}) {
>   setiathome1;
>   setiathome2;
>   exit;
> }
> else {
>   usage;
>   exit;
> }
> -End Code
> 
> If a better explanation is desired, e-mail me directly.
> 
> Thanks,
> --
> Tyler Longren
> Captain Jack Communications
> [EMAIL PROTECTED]
> www.captainjack.com
> 
> 
> 
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
-- 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Moving on....

[Tyler Longren]

Gary,

I tried the code you posted, and it has the same problem mine did.

tyler


On Tue, 2002-06-18 at 11:17, Gary Stainburn wrote:
> On Tuesday 18 June 2002 5:08 pm, Tyler Longren wrote:
> > Hello,
> 
> Hi,
> 
> >
> > I have an smp machine that I want to run two instances of setiathome
> > on.  I have two s@h directories (/root/.setiathome and
> > /root/.setiathome2).  I wrote this to run both of them at the same time
> > right from one script.  If I use the -a flag to run both of them, it
> > never moves on to start the setiathome in $setiathome2_dir.
> >
> 
> Your problem is that you script will never return from the first time it 
> calls setiathome.  You need to fork a new process to do that.
> 
> Two points to note
> 
> 1) the '&' added to the backtick
> 2) never use your system as root. Even if you're the only user, create and 
> use another account.  Only use 'root' for SysAdmin stuff.  One day you WILL 
> regret it.
> 
> try something like (not tested)
> 
> #!/usr/bin/perl -w
> use strict;
> use Getopt::Std;
> getopts("12a",\my %options);
> 
> if (defined $options{1} || defined $options{a}) {
>   &startit('/root/.setiathome/');
> }
> 
> if (defined $options{2} || defined $options{a}) {
>   &startit('/root/.setiathome2/');
> }
> 
> sub startit {
>   my ($dir)=@_;
>   chdir ($dir);
>   `./setiathome -proxy 192.168.1.3:5517 &`;
> }
> 
> > How can I make it so both s@h clients get started?
> >
> > Begin Code
> > #!/usr/bin/perl -w
> > use strict;
> > use Getopt::Std;
> > getopts("12a", \my %options);
> > sub usage {
> > print "Usage: ./seti.pl [-1] [-2] [-a]
> > -1  :  Start the first directory of setiathome
> > -2  :  Start the second directory of setiathome
> > -a  :  Start both setiathome clients\n\n";
> > }
> > my $setiathome1_dir = "/root/.setiathome/";
> > my $setiathome2_dir = "/root/.setiathome2/";
> > sub setiathome1 {
> > `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517`;
> > }
> >
> > sub setiathome2 {
> > `cd $setiathome2_dir; ./setiathome -proxy 192.168.1.3:5517`;
> > }
> >
> > if (defined $options{1}) {
> > setiathome1;
> > exit;
> > }
> > elsif (defined $options{2}) {
> > setiathome2;
> > exit;
> > }
> > elsif (defined $options{a}) {
> > setiathome1;
> > setiathome2;
> > exit;
> > }
> > else {
> > usage;
> > exit;
> > }
> > -End Code
> >
> > If a better explanation is desired, e-mail me directly.
> >
> > Thanks,
> 
> -- 
> Gary Stainburn
>  
> This email does not contain private or confidential material as it
> may be snooped on by interested government parties for unknown
> and undisclosed purposes - Regulation of Investigatory Powers Act, 2000 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Books on "Network programming in Perl"...

[Tyler Longren]

yes, perl can be used on NT and other windows variants.

On Wed, 17 Jul 2002 08:48:12 +0530
"Parag Dhake" <[EMAIL PROTECTED]> wrote:

> 
> Hi Everybody,
> 
>I'm new to this mailing list (and to the world of Perl, as well)
>Would appreciate if you can suggest me some good books on "Network
>programming in Perl". Do you think Perl is the best language for
>network programming ?. 
> 
>If no, please tell me, which other language is best suited for
>network programming and for creating network administration
>utilities.
> 
>I've read some books on Perl by now and I've found that it is
>usually used on a Unix box. Can it be used on NT platform as well
>?.
> 
>Thankx and Regards,
>Parag
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Problem using IF with AND

[Tyler Longren]

If I were you, I'd try using && instead of "and" in your if loop:
if ($client ne $newclient && $method ne $newmethod) {
// blah blah blah
}

I'm not even sure if that will work in perl.  Who knows.

Good luck,
Tyler Longren


On Mon, 29 Oct 2001 08:33:42 -0700
"Earthlink" <[EMAIL PROTECTED]> wrote:

> The program I'm writing (my first in Perl) takes a log file and using a
> regex pulls out all lines that contains certain words and writes them to
> a
> file.  Then I read in that file, seperate out the fields I want (IP
> address
> and method), and want to eliminate the duplicates, and add a count to
> show
> how many there were.  I'm evaluating string variable against each other
> for
> instance:
> 
> if ($client ne $newclient and $method ne $newmethod){
> print "something\n";#I'll actually
> be
> printing this to my report once I get this worked out
> }
> 
> Then at the end of each loop I add the values of the strings I pulled
> out of
> each line to my $new... variables and loop again.
> 
> Problem is that this seems to work for only the first set of variables
> and
> ignores the ones after the "and".  For instance $method could be either
> CMD.EXE or ROOT.EXE.  Any ideas?  I added a line of code to show what
> the
> strings $newclient and $newmethod contain at each loop and it is
> correct, so
> I'm a little confused.
> 
> Thanks
> Kurt
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 


-- 
+--+
|   Tyler Longren  |
| Captain Jack Communications  |
|[EMAIL PROTECTED] |
| www.captainjack.com  |
+--+

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Problem using IF with AND

[Tyler Longren]

I think you're right.  ;-)

Tyler

On Mon, 29 Oct 2001 20:40:28 -0800
Dave Turner <[EMAIL PROTECTED]> wrote:

> I think ( and there's plenty who will tell you if I'm wrong... lol )
> that 
> you need to put it as:
> 
> if (($client ne $newclient) && ($method ne $newmethod)) {
>  // blah blah blah
> }
> 
> Otherwise I think it doesn't bother to look at the second if the first
> fails.
> 
> Hope that helps.
> 
> At 10:28 PM 10/29/01 -0600, you wrote:
> >If I were you, I'd try using && instead of "and" in your if loop:
> >if ($client ne $newclient && $method ne $newmethod) {
> > // blah blah blah
> >}
> >
> >I'm not even sure if that will work in perl.  Who knows.
> >
> >Good luck,
> >Tyler Longren
> >
> >
> >On Mon, 29 Oct 2001 08:33:42 -0700
> >"Earthlink" <[EMAIL PROTECTED]> wrote:
> >
> > > The program I'm writing (my first in Perl) takes a log file and
> using a
> > > regex pulls out all lines that contains certain words and writes
> them to
> > > a
> > > file.  Then I read in that file, seperate out the fields I want (IP
> > > address
> > > and method), and want to eliminate the duplicates, and add a count
> to
> > > show
> > > how many there were.  I'm evaluating string variable against each
> other
> > > for
> > > instance:
> > >
> > > if ($client ne $newclient and $method ne $newmethod){
> > > print "something\n";#I'll
> actually
> > > be
> > > printing this to my report once I get this worked out
> > > }
> > >
> > > Then at the end of each loop I add the values of the strings I
> pulled
> > > out of
> > > each line to my $new... variables and loop again.
> > >
> > > Problem is that this seems to work for only the first set of
> variables
> > > and
> > > ignores the ones after the "and".  For instance $method could be
> either
> > > CMD.EXE or ROOT.EXE.  Any ideas?  I added a line of code to show
> what
> > > the
> > > strings $newclient and $newmethod contain at each loop and it is
> > > correct, so
> > > I'm a little confused.
> > >
> > > Thanks
> > > Kurt
> > >
> > >
> > >
> > > --
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > >
> >
> >
> >--
> >+--+
> >|   Tyler Longren  |
> >| Captain Jack Communications  |
> >|[EMAIL PROTECTED] |
> >| www.captainjack.com  |
> >+--+
> >
> >--
> >To unsubscribe, e-mail: [EMAIL PROTECTED]
> >For additional commands, e-mail: [EMAIL PROTECTED]
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 


-- 
+--+
|   Tyler Longren  |
| Captain Jack Communications  |
|[EMAIL PROTECTED] |
| www.captainjack.com  |
+--+

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

getting individual lines

[Tyler Longren]

Hello,

I have a HUGE document full of very simple SQL queries.  Each query only
takes up one line in the file.  How could I get every individual line of SQL
and execute it?  I know how to query MySQL in perl, so that's fine...I just
don't know how to get the individual lines to execute.

Thanks everyone,
Tyler



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: today's date....

[Tyler Longren]

I'm not sure if there's a function to do that.  But you could check the
length of $DAY...if it's less than 2 you could just add a 0 infront of it.

Good luck,
Tyler Longren

- Original Message -
From: "Torres, Jose" <[EMAIL PROTECTED]>
To: "'Shinagare, Sandeep'" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Wednesday, December 05, 2001 2:09 PM
Subject: RE: today's date


> In the code below, is there a Perl built-in function to pass $DAY into
> so that a "9" comes out "09"? I need digits from 1 to 9 to be of the form
> 01, 02, etc. Ideas? Thanks.
>
>
>
> -Jose
>
>
>
> -Original Message-
> From: Shinagare, Sandeep [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, December 05, 2001 11:27 AM
> To: '[EMAIL PROTECTED]'
> Subject: today's date
>
>
> Hi Folks!
> Trying to get todays date and month... was able to find this...
>
> #snip-start
>   use Time::localtime;
>   $tm = localtime;
>   ($DAY, $MONTH, $YEAR) = ($tm->mday, $tm->mon, $tm->year);
> #snip-end
>
> this gives me the Day and Month in numbers.. anyway in which i
> can get "Mon","Tue","Wed" and "Jan","Feb","Mar" etc.. other than
> coding the conversion?
>
> Thanks,
> Sandeep
>
>
> **
> COLT Telecommunications
> Registered in England No. 2452736
> Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
> Tel. 020 7390 3900
>
> This message is subject to and does not create or vary any contractual
> relationship between COLT Telecommunications, its subsidiaries or
> affiliates ("COLT") and you. Internet communications are not secure
> and therefore COLT does not accept legal responsibility for the
> contents of this message.  Any view or opinions expressed are those of
> the author. The message is intended for the addressee only and its
> contents and any attached files are strictly confidential. If you have
> received it in error, please telephone the number above. Thank you.
>
>
> 
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

searching through httpd.conf

[Tyler Longren]

Hello list,

I need to search for all virtual domains in an apache config file.  Example:

   ServerAdmin [EMAIL PROTECTED]
   DocumentRoot /home/blah.com/www
   ServerName www.blah.com
   ErrorLog /home/blah.com/logs/error_log
   CustomLog /home/blah.com/logs/access_log common


   ServerAdmin [EMAIL PROTECTED]
   DocumentRoot /home/test.blah.com/www
   ServerName test.blah.com
   ErrorLog /home/test.blah.com/logs/error_log
   CustomLog /home/test.blah.com/logs/access_log common


I need to get whatever the ServerName is.  Here's what I have:
open(APACHE_CONF, "/usr/local/apache/conf/httpd.conf") or die "Could not
open Apache config file:\n$!\n";
my @servernames;
while() {
push (@servernames, $1)
if/ServerName\swww..(.*)/;
}
close(APACHE_CONF);
my $h;
foreach $h(@servernames) {
# blah blah blah
}

That only gets the ServerName if it starts with a "www".  How could I get it
no matter what ServerName starts with?

Thanks,
Tyler



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Syntax of Messages

[Tyler Longren]

you use $ for variables and @ for arrays.

the Quantum::Entanglement module is a quantum programming module.  It tries
to replicate what it would be like to program on a quantum computer.

Tyler

- Original Message -
From: "Anthony LaBerge" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, February 12, 2002 11:55 AM
Subject: Syntax of Messages


> I'm a new subscribee, and also an Extream Newbie at perl, so I'm having
> trouble understanding the syntax of the coding, You use $_, @_, and
> other things that I do not quite understand. There is also one more
> thing I donot understand, that is: What are the
> ' use Quantum::Entanglement ' lines in the code?
>
> Thanks for your help.
>
> Another Message
> From The Webmaster
> At LabAnt.net
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: making phone calls using a perl module

[Tyler Longren]

That dial-o-matic episode was on lastnight here in Iowa.

:)

Tyler

- Original Message -
From: "Nikola Janceski" <[EMAIL PROTECTED]>
To: "'Brett W. McCoy'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, February 28, 2002 8:32 AM
Subject: RE: making phone calls using a perl module


> Actually I am sure John knows phone spam is illegal, no ifs and buts about
> it.
> I am sure we all saw that Simpsons episode when Homer got Prof. Frink's
> Dial-o-matic.
>
>
> -Original Message-
> From: Brett W. McCoy [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, February 27, 2002 10:44 PM
> To: [EMAIL PROTECTED]
> Subject: Re: making phone calls using a perl module
>
>
> On Wed, 27 Feb 2002, Joe Echavarria wrote:
>
> >I am looking for a perl module that can be used to
> > make phone calls using a voice modem so when the phone
> > is picked up the user can hear a recorded message
> > (mp3 file). Any idea where i can find that module.
>
> Oh, boy, phone spam.
>
> -- Brett
>   http://www.chapelperilous.net/
> 
> Yawd [noun, Bostonese]:  the campus of Have Id.
> -- Webster's Unafraid Dictionary
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
--
> 
> The views and opinions expressed in this email message are the sender's
> own, and do not necessarily represent the views and opinions of Summit
> Systems Inc.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Archive::Tar

[Tyler Longren]

Hello,

Can I archive directories using the Archive::Tar module?
http://www.perldoc.com/perl5.6.1/lib/Archive/Tar.html

Thank you,
Tyler



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perldoc question

[Tyler Longren]

type this at your command line:
echo $PATH

That should display a few folders (/usr/local/bin, /usr/bin, etc...).

your perldoc executable should be located in a folder listed in your $PATH.

Good luck,
Tyler

- Original Message - 
From: "Joe Echavarria" <[EMAIL PROTECTED]>
To: "Hanson, Robert" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, March 12, 2002 1:15 PM
Subject: RE: Perldoc question


> I really don ' t understand what you mean. I am new to
> Unix  and Perl.
>   Please help me out here. What i should to ?, read or
> what ?
> 
>  Thanks. 
> 
>Joe.
> --- "Hanson, Robert" <[EMAIL PROTECTED]> wrote:
> > perldoc isn't in your path most likely.
> > 
> > Check your path environment variable (echo $PATH),
> > and make sure that
> > perldoc is in one of those directories.  If I had to
> > guess you probably have
> > a symlink to the perl executable in your path, but
> > not the actual bin/
> > directory of perl.
> > 
> > Rob
> > 
> > -Original Message-
> > From: Joe Echavarria
> > [mailto:[EMAIL PROTECTED]]
> > Sent: Tuesday, March 12, 2002 1:48 PM
> > To: [EMAIL PROTECTED]
> > Subject: Perldoc question
> > 
> > 
> > hi there,
> > 
> >   On my unix box when i try to get perl help from
> > the
> > command line using "perldoc print" or "perlfunc" i
> > get
> > these errores.
> > 
> > perlfunc: not found
> > perldoc: not found
> > 
> >  How can i fix this problem ?
> > 
> >   Thanks.
> > 
> >   Joe.
> 
> 
> __
> Do You Yahoo!?
> Try FREE Yahoo! Mail - the world's greatest free email!
> http://mail.yahoo.com/
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]