Re: import data to Excel Template

2005-05-04 Thread Paul Kraus
> I have an Excel template which uses macros and I want to import a tab > delimited file. Can someone pls suggest which module\s to use... > > I will be running this on a XP box. Have a look at this http://tinyurl.com/b3pgp or this http://tinyurl.com/8mhje HTH, Paul -- To unsubscribe, e-mail:

Re: hash de-ref?

2005-05-02 Thread Paul Kraus
> use strict; use warnings; > my %h=(qw/a aa b bb c cc d dd e ee f ff/); > print "interesting values: ", join ", ", @h{qw/ a d f/}; Wow very usefull thanks. Its amazing how we can get stuck using the same functions or methods to write code and ignore others simply because we have never had a "need"

Re: hash de-ref?

2005-05-02 Thread Paul Kraus
> > if ((@{$info{$loggedin}}{cell}) and > > (@{$info{$loggedin}}{line} eq 'dc')) > The person who wrote that is using a hash slice. That would more correctly be > written as: > > if ( $info{$loggedin}{cell} and $info{$loggedin}{line} eq 'dc' ) Why would you want to use a slice o

Re: hash de-ref?

2005-05-02 Thread Paul Kraus
> a) $loggedin is scalar True > b) $loggedin is used as a hash key True > c) info is a hash True > d) since we retrieve on thing from the hash, there is a '$' in front of info Since you are refering to one element of the hash there is a $. > e) $info{$loggedin} is enclosed inside @{} True > f) @

Re: Perl - Windows XP Pro - Perl Scripts Seem to hang until the enter key is pressed

2005-05-02 Thread Paul Kraus
On 5/2/05, Paul Kraus <[EMAIL PROTECTED]> wrote: > Most if not all of my perl scripts have a tendency to just hang. No > errors. Not locked up. Hitting the enter keys seems to bring them > back. > Attached is a little test script that is very basic but demonstrates > this. Pe

Perl - Windows XP Pro - Perl Scripts Seem to hang until the enter key is pressed

2005-05-02 Thread Paul Kraus
Most if not all of my perl scripts have a tendency to just hang. No errors. Not locked up. Hitting the enter keys seems to bring them back. Attached is a little test script that is very basic but demonstrates this. Perhaps it is something on my system but its a real pain in the but. I have other v

Re: Reading MSAccess Files under Linux?

2005-04-27 Thread Paul Kraus
> It got me thinking: Is there a way to read MSAccess files under Linux using > perl? > Its tricky get odbc working on your nix box google will turn up a ton of tutorials. Then use dbi dbd::odbc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Binding Operator =~ Pattern Matching

2005-04-26 Thread Paul Kraus
> (my $orders_dir) > File 121212.TXT ...contains > 12345.html CR > 12346.html CR > > Here is the piece I'm having trouble w/ > > foreach my $html (@htmls) { > if ($html =~ /^($_)\s*/) { > my $msg = MIME::Lite->new ( Where does it fail? if ($html =~ /^($_)\s*/) $_ has no value s

Re: Password

2005-04-26 Thread Paul Kraus
Lots of ways to do this. Can you show us the code you have already written? On 4/26/05, Rentachintala, Jagan <[EMAIL PROTECTED]> wrote: > Hi, > > I am a newbie to perl and I have a question. In one of my project, the perl > script will create a logfile. Inside the log file, the username/passwor

Re: Require / Use

2005-04-21 Thread Paul Kraus
> Think of 'require' as a vestigal organ from Perl4 that has little or no > purpose today with Perl5. > > For the most part, it's safe to pretend that 'require' doesn't exist. Perfect. Just wanted to make sure I wasn't missing something. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additiona

Re: Require / Use

2005-04-21 Thread Paul Kraus
> Because you want the action at run-time (require) vs. compile time > (use), is the usual reason, I would guess. Not to sound daft but why would you want to do that? What would be gained or lossed. What would be an advantage of using require? Paul -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Require / Use

2005-04-21 Thread Paul Kraus
Why would one use Require instead of Use? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Need help match feet and inches

2005-04-20 Thread Paul Kraus
Hello, Please stop making new threads for the same topic. Reply to the same thread. Keeps the group organized as well as our inboxes and archive searches. If someone else who had a simliar issue and did a google search they could click one link and see all of your efforts. By splitting them up it o

Re: WhiteSpace - Map, search replace, split

2005-04-20 Thread Paul Kraus
> but this does not > my @record = map ( $_=~ s/^\s+|\s+$//g,(split /\|/,$_) ); Ok i get it. I just need to have it based on a block. Not sure why both will not work though. my @record = map {$_=~s/^\s+|\s+$//g}(split/\|/,$_); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comm

WhiteSpace - Map, search replace, split

2005-04-20 Thread Paul Kraus
Why does this work my $date = 'one | two |three |'; my @record = map ( whitespace($_), (split /\|/,$_) ); sub whitespace { my $string = shift; $string =~ s/^\s+|\s+$//g; return $string; } but this does not my @record = map ( $_=~ s/^\s+|\s+$//g,(split /\|/,$_) ); Paul --

MIME::Lite Net::SMTP_auth

2005-04-19 Thread Paul Kraus
How can i create a message with mime::lite but send it with net::smpt_auth? My attempt below... use strict; use warnings; use MIME::Lite; use Net::SMTP_auth; my $msg = MIME::Lite -> new ( From => '[EMAIL PROTECTED]', TO => '[EMAIL PROTECTED]',

file::copy remote authentication

2005-01-11 Thread Paul Kraus
I have a perl script that uses file::copy to copy files from a server to the local machine. It does alot more then that but is pretty much the jist of what is taking place. Currently i have to have the local machine first establish the connection so that authentication takes place. start -> run \\

Monitor Squid access.log

2004-12-07 Thread Paul Kraus
I can do all of this once I have the input from access.log. It needs to be in real time because these machines are dhcp that being the case I need to get the mac address of the ip being used the very instance that it is used. Your thoughts, Paul Kraus -- To unsubscribe, e-mail: [EMAIL PROTECTED

Mime::Lite - Windows Question

2004-08-23 Thread Paul Kraus
My usual environment is Linux so maybe some of you m$ guys can help me out. I am sending a mail with an excel sheet attached (created with spreadsheet::writeexcel. I am using Mime::Lite to send the mail. Is their a way to have the file as the body of the message? If I open Excel and ma

Re: Newbie question

2004-08-03 Thread Paul Kraus
Go to a command prompt.Type ppm hit enter. use this tool to install modules of windows. On Sat, Jul 31, 2004 at 11:22:37PM -0500, Drue Reeves wrote: > Sorry for the newbie question but, I'm having trouble using the Perldap > module. I downloaded the binaries and I am trying to install them into >

Re: setting the environment variables in perl

2004-07-27 Thread Paul Kraus
You can access all the env variables like this... $ENV{ 'VAR' } example my $home = $ENV{ 'HOME' }; print "$home\n"; I have never tried to change them but I would assume that it would work. HTH, Paul Kraus On Tue, Jul 27, 2004 at 07:29:45AM -0700, jason corbett

Re: Problem with highlighting a word

2004-07-20 Thread Paul Kraus
cpan search Term::Ansi On Tue, Jul 20, 2004 at 04:22:56PM +0100, Paul Smith wrote: > Dear All > > I would like to know how to print a line of text to the console with a > specific word highlighted in a way such that the foreground color is > exchanged with the background colour. Any ideas? > >

Close Windows Program if running

2004-07-01 Thread Paul Kraus
I have a backup script that my laptop users use to backup up there systems to a networked drive. Is there a way using perl to see if outlook is open and then if it is open to close it gracefully? It would need to be able to detect dialog boxes such as do you want to empty your deleted items folder

Re: Printing outside of foreach...

2004-06-25 Thread &#x27;Paul Kraus'
$$downloaded_stocks[2]", > >}, > > ... Inside the loop. Is this all correct? > > Regards, > > Dan > > -Original Message- > From: Paul Kraus [mailto:[EMAIL PROTECTED] > Sent: Friday, 25 June 2004 10:28 PM > To: Daniel Falkenberg > S

Re: Sending email via SMTP

2004-06-25 Thread Paul Kraus
Not sure what your trying to do but check out MIME::Lite from cpan. Great mod to easily send out emails via perl. Paul On Thu, Jun 24, 2004 at 03:43:53PM -0500, Mike Blezien wrote: > Hello, > > I'm looking at using the Net::SMTP module to send email as opposed to the > standard method of "sendm

Install Curses for Bastille Install

2004-03-12 Thread Paul Kraus
orm_userptr' NOT found function 'form_userptr' NOT found function 'set_form_win' NOT found function 'form_win' NOT found function 'set_form_sub' NOT found function 'form_sub' NOT found function 'scale_form' NOT found function 'set

RE: Code Socket Port... Read In and sent out to perl script

2004-03-05 Thread Paul Kraus
> OK, you owe me a beer :~) Note that this has zilch security or anything to > prevent DoS type attacks, so caveat emptor... Should I send the ups red label ;) > > server.pl > - > #!/usr/bin/perl > > use strict; > use IO::Socket::INET; > > my $n = 0; > > my $sock = IO::Socket

Code Socket Port... Read In and sent out to perl script

2004-03-05 Thread Paul Kraus
ven asking :) Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comman

Passing Data Between Servers

2004-03-04 Thread Paul Kraus
. That parsing and send would be its own > script. > > The linux server would need to be able to accept more then 1 "transaction" > at a time. > > Any help would be greatly appreciated. > > TIA, > > Paul Kraus > --- > PEL Sup

RE: Why did it print a happy face?

2004-03-02 Thread Paul Kraus
Yes there are. The extended ASCII set. Do a search of google extended ASCII chart. Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Joel [mailto:[EMAIL PROTECTED] > Sent: Tuesday, March 02, 2004 1:25 PM > To: Shaw,

RE: PERL on 9.2 and XP Prof.

2004-02-25 Thread Paul Kraus
http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.3.809 -MSWin32-x86.msi download this msi file. Install. Read the docs. And use PPM to install cpan modules. > -Original Message- > From: KENNETH JANUSZ [mailto:[EMAIL PROTECTED] > Sent: Wednesday, February 25, 2004 10:

RE: cool project ideas

2004-02-24 Thread Paul Kraus
> When I originally started with > perl I wanted to know how to write spiders (but I'm too cheap to buy the > O'Reilly book "Spidering hacks", and the library doesn't have it) http://safari.oreilly.com/ 14 bucks a month 10 bucks can be taken out at a time including the one you mentioned. Plus you

RE: Perl Newbie

2004-02-24 Thread Paul Kraus
> Would someone point me to source examples, or module documentation. I can > pick up things quickly, but when so much is so new and unexplored, I'm > afraid I really don't know where to start. Of course, I will work through > the tutorial to build some general language proficiency, but I surely

RE: using substr... is this efficient

2004-02-20 Thread Paul Kraus
> > Is there a more efficient way other than *substr*, I looked a *pack* and > > *unpack* . it did not make any sense to me. Unpack is what I would use. Perldoc unpack. $item = substr($the_line,0,10); $ldesc= substr($the_line,11,40); $page = substr($the_line,52,6); $d=

RE: array assistance needed

2004-02-17 Thread Paul Kraus
Oh yea check out perldoc perllol. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: array assistance needed

2004-02-17 Thread Paul Kraus
> I'd like to create a numerically indexed associtative array, each key will > contain an array of three elements like: > > $array[0] = ("element0", "element1", "element2"); > $array[1] = ("element0", "element1", "element2"); > $array[3] = ("element0", "element1", "element2"); > etc. Why use an a

RE: shorten code

2004-02-16 Thread Paul Kraus
> > my @rows = map [split], split /\n/, $str; > > for (@rows) { $_->[2] =~ tr/%//d } > > > > Neat. You saved me 6 lines of code :) > Thank You !! Make sure its meaningful to you or someone else maintaining it. I would rather see 6 extra lines of code and have it mean something to me at

RE: Using compression on Win32 systems

2004-02-05 Thread Paul Kraus
Do you read the perl docs? They almost always contain examples or the folder for the module will have example code as well. Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Ned Cunningham [mailto:[EMAIL PROTECTED]

RE: Using compression on Win32 systems

2004-02-05 Thread Paul Kraus
http://search.cpan.org/search?query=zip&mode=all Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Ned Cunningham [mailto:[EMAIL PROTECTED] > Sent: Thursday, February 05, 2004 9:50 AM > To: [EMAIL PROTECTED]

RE: Dump Excel File to Database table

2004-02-04 Thread Paul Kraus
> Paul, > Thanks for your response. I'm open to any suggestion as I'm pulling my > hair > out trying to find out how to upload this data. My files can vary in > numbers > of rows and columns but the x and y axis always contain the same type of > metadata - in my case cost centre and cost item. A sa

RE: script problem

2004-02-03 Thread Paul Kraus
> event, or "0" if unavailable is: $ARGV[8] Escape the \"0\" -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: I did it!

2004-02-01 Thread Paul Kraus
of work when it comes to debugging bad code. Paul kraus

RE: goto command

2004-01-29 Thread Paul Kraus
Sub dothissubroutine { Do something If return this Else return this } My $result = &dothissubroutine If $result = this }elsif This }else{ This } Paul Kraus --- PEL Supply Company Network Administrator > -Original

RE: [OT] Linux VPN server / Mac windows clients | perl on a Mac editors

2004-01-29 Thread Paul Kraus
> Paul> Off topic but this list seems to be filled with Linux gurus. > > Off topic but this list seems to be filled with people who speak > English. Can someone tell me a good book for learning how to write? Come on now. It had a perl question very relevant and a side note that if someo

RE: Obtaining file data

2004-01-29 Thread Paul Kraus
Perldoc -f stat You can use paths like this in perl \\remoteserver\c\path Don't forget to escape the \\ in double quote context. remoteserver\\c\\path HTH, Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From:

[OT] Linux VPN server / Mac windows clients | perl on a Mac editors

2004-01-29 Thread Paul Kraus
ever that is. I would rather stick with my trusty perl :) Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com --- -- To unsubscribe, e-ma

RE: Help with options

2004-01-28 Thread Paul Kraus
Getopt::long http://search.cpan.org/~jv/Getopt-Long-2.34/lib/Getopt/Long.pm Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Thomas Browner [mailto:[EMAIL PROTECTED] On Behalf Of > [EMAIL PROTECTED] > Sent: Tuesday

RE: Dump Excel File to Database table

2004-01-28 Thread Paul Kraus
This may be off the mark but I have always found it easier to save the table as a csv file and use Text::CSV to then parse that. I always prefer working with text but that's me. HTH, Paul Kraus --- PEL Supply Company Network Administrator > -Original

Time::Format

2004-01-26 Thread Paul Kraus
ine 1. ...propagated at C:\Documents and Settings\pdk\My Documents\perl code\customertracking\tracking.pl line 35, line 45. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-617

Slices

2004-01-26 Thread Paul Kraus
Can I declare from this element to end with an array slice. @arary[3...] but this doesn't work?. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsuppl

RE: hash of hash of array slices

2004-01-26 Thread Paul Kraus
> -Original Message- > From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED] > Sent: Monday, January 26, 2004 12:10 PM > To: Paul Kraus > Cc: 'Perl Beginners' > Subject: Re: hash of hash of array slices > > On Jan 26, Paul Kraus said: > > &

RE: hash of hash of array slices

2004-01-26 Thread Paul Kraus
> Paul Kraus <[EMAIL PROTECTED]> wrote: > : > : This works > : > : Foreach ( @{$hash{$key1}{$key2}} ) > : > : This does note > : > : Foreach ( @{($hash{$key1}{$key2})[9..1]} ) > : > : This gives me this error > : Can't use undefined value as an

hash of hash of array slices

2004-01-26 Thread Paul Kraus
This works Foreach ( @{$hash{$key1}{$key2}} ) This does note Foreach ( @{($hash{$key1}{$key2})[9..1]} ) This gives me this error Can't use undefined value as an array reference. TIA, Paul Kraus --- PEL Supply Company Network Administ

Haiku Activestate Slashdot

2004-01-23 Thread Paul Kraus
http://slashdot.org/articles/04/01/22/2349200.shtml?tid=126&tid=145&tid=156&; tid=162&tid=99 Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax w

RE: Learning to use map and grep

2004-01-22 Thread Paul Kraus
Lol opps. my $count = 0; foreach ( @record ) { my $length = length( $_ ); $widths[ $count ] = $length if ( $widths[ $count ] < $length ); $count++; push ( @sheet, [ @record ] ); } Paul Kraus --- PEL Supply Company Network Administra

Learning to use map and grep

2004-01-22 Thread Paul Kraus
practicality. Thanks. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

RE: Re: parse email

2004-01-19 Thread Paul Kraus
Where not actually using exchange. But we do take advantage of calendar assignments that are emailed from outlook to other outlook. Be able to on a click update meeting and appointments. To my understanding you can not do this with evolution unless you are running exchange. Paul Kraus

RE: Re: parse email

2004-01-19 Thread Paul Kraus
via outlook for appointments and everything else. Having my machine not connected this way would be more of a pain in the ass then using office. Paul Kraus --- PEL Supply Company Network Administrator -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands,

parse email

2004-01-19 Thread Paul Kraus
my script against it. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Net::Scp

2004-01-16 Thread Paul Kraus
::SCP -> new ( 'hylafax', 'pdk' ); print "Getting Leases File\n"; $scp -> iscp ( $leases, 'scpleases.txt' ); print "Getting Access File\n"; $scp -> iscp ( $access, 'scpaccess.txt' ); Paul Kraus --- PEL Sup

RE: no digest

2004-01-15 Thread Paul Kraus
I have tried the nntp route 4 times. Every time I end up getting half the messages and they come in hours behind the mailing list. Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECT

RE:Apel of VIM was Emacs Wizards

2004-01-14 Thread Paul Kraus
> (I love emacs, but vi is my tool of choice day-to-day ... much > quicker vim is even better if you have it) Why? I started with emacs just because it happened to be the 1st I heard about. Since you know both why does vim appeal to you over emacs? Other then size. -- To unsubscribe, e-mai

Emacs Wizards

2004-01-14 Thread Paul Kraus
Is there a way to easily have emacs comment out xnumber of lines. If something{ Then do Else Do } Alt 5 Ctrl - somecoolsequence I don't know #If something{ # Then do #Else # Do #} Sort of perl related assuming you hackers are using 'real editor'

== eq > gt

2004-01-14 Thread Paul Kraus
I understand that the eq and gt are for string comparisons but why not just use the mathematical ones of == or >. This goes for functions open ... or compared to open .. || Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 T

Upgrading Perl linux 5.6 rpm to 5.8.2 source

2004-01-13 Thread Paul Kraus
On a Linux system how can I remove the 5.6 rpm and then install the 5.8.2 from source and still maintain dependencies? If something is looking for perl how do I make sure that it upgrades correctly? Paul Kraus --- PEL Supply Company Network Administrator

RE: New to PERL and Need Help

2004-01-13 Thread Paul Kraus
Start with http://safari.oreilly.com Read learning perl. Quick and easy read. Perl dbi And programming perl. Read all of the perldoc FAQ's. Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: KENNETH JANUSZ [ma

RE: Clearing Arrays

2004-01-13 Thread Paul Kraus
http://safari.oreilly.com HTH, Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Tuesday, January 13, 2004 8:32 AM > To: Ramprasad A Padmanabhan > Cc: [EMAIL PROTECTE

RE: :usage example help

2004-01-09 Thread Paul Kraus
Ahhh how annoying. The pod documents can have no white space before the =command or they don't work. They also have to have a blank line before and after them. This seem very anti-perl. Especially with the white space. Paul Kraus --- PEL Supply Company Ne

pod::usage example help

2004-01-09 Thread Paul Kraus
tem B<-help> Print a brief help message and exits. =item B<-man> Prints the manual page and exits. =back =head1 DESCRIPTION B will read the given input file(s) and do something useful with the contents thereof.

RE: Use of FOR statement

2004-01-09 Thread Paul Kraus
Use english? TMTOWTDI? Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Rob Dixon [mailto:[EMAIL PROTECTED] > Sent: Thursday, January 08, 2004 5:21 PM > To: [EMAIL PROTECTED] > Subject: Re: Use of FOR statement

Getopt::Long::Configure('auto_help')

2004-01-08 Thread Paul Kraus
enabled if the calling program explicitly specified a version number higher than 2.32 in the "use" or "require" statement. TIA, Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-12

RE: Use of FOR statement

2004-01-08 Thread Paul Kraus
Wow just tested that for (@array) do something. I didn't think that would work. So there is no difference as far as the compiler is concerned with for and foreach? Why bother having both then? Paul Kraus --- PEL Supply Company Network Administrator > -

printf sprintf

2004-01-08 Thread Paul Kraus
What is the difference. The only I see is that printf can take a filehandle? But what use would that be. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com

Parsing dhcpd.leases and squid access.log

2004-01-08 Thread Paul Kraus
if ($squiddate < $dhcpddate){ $hostname = $record[0]; last if ($hostname ne $ARGV[0]); print OUT "$hostname|$time|$date|$size|$site\n"; last; } } } } Paul Kraus --- PEL Supply Company Network Administrator ---

RE: Question about CPAN's Text::Diff

2004-01-07 Thread Paul Kraus
Why not just use the diff command? Man diff Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Wednesday, January 07, 2004 3:22 PM > To: [EMAIL PROTECTED] > Su

utc to local time

2004-01-07 Thread Paul Kraus
How can I convert a utc time stamp to a perl standard time stamp for my timezone? Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax www.pelsupply.com

Post Script - Hylafax - Text File - perl

2004-01-07 Thread Paul Kraus
template somehow and perl would then parse the output of a text file to determine what goes where on the form and what the fax number is. Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 216 267-5775 Voice 216 267-6176 Fax

Net -> SCP - errstr uninitialized

2004-01-05 Thread Paul Kraus
llo\n"; } Error - Use of uninitilazed value in die at C:\Documents and Settings\pdk\My Documents\perl code\squidlogs\squid.pl line12. Died at C:\... line 12 Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264 Toll Free 21

Off Topic: Active Perl Native Windows / cygwin perl

2004-01-05 Thread Paul Kraus
I have both activestate windows native perl installed and the default cygwin perl. How can I have the cygwin shell use the windows perl rather then the cygwin compiled perl? Paul Kraus --- PEL Supply Company Network Administrator --- 800 321-1264

RE: Squid Log Parser

2004-01-05 Thread Paul Kraus
Never mind Text-DHCPparse. Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Paul Kraus [mailto:[EMAIL PROTECTED] > Sent: Monday, January 05, 2004 8:59 AM > To: [EMAIL PROTECTED] > Subject: Squid Log Parser >

Squid Log Parser

2004-01-05 Thread Paul Kraus
name "Agullifer"; } lease 192.168.XXX.XXX { starts 1 2004/01/05 13:02:20; ends 1 2004/01/05 13:12:20; binding state active; next binding state free; hardware ethernet XXX; uid "[EMAIL PROTECTED]"; client-hostname "ROBIN"; } Paul Kraus -- To unsubscribe, e-ma

RE: Looping through file for regex

2004-01-02 Thread Paul Kraus
> > I don't agree with this. > > And I don't understand this. ;) I don't expect the minds of mere mortal to comprehend my infinite knowledge ;) (Tongue firmly in cheek) > If you're going to work with the lines one at a time anyway, what > exactly is the advantage of using the probably slower and

RE: Looping through file for regex

2004-01-02 Thread Paul Kraus
o just load up some data structures. I understand writing efficient code is always best but for a quickie script like this I wouldn't be to concerned with the 1/100th of a ms that your going to shave off but not dumping the contents to memory. My 2 cents, Paul Kraus -- To unsubscribe,

RE: Looping through file for regex

2004-01-02 Thread Paul Kraus
> Greetings, Hello > I've created a hash from an INPUT file and I'm trying > to search for each key from the hash in a DATA file. > However, I can't get my script to iteratively loop > through the DATA file for each key. Instead it loops > through DATA once for the first key. Below is some > sam

RE: Perl Newbie question: How would you take keyboard input and run a shell scrip with that input?

2003-12-31 Thread Paul Kraus
ed of course. More info may lend yourself to a better answer. Paul Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Jeff Collins [mailto:[EMAIL PROTECTED] > Sent: Wednesday, December 31, 2003 11:44 AM > To: [EMAIL PRO

RE: foreach

2003-12-19 Thread Paul Kraus
I am catching this thread late so this may have been covered. But can you give me some examples? I use foreach for arrays. For for loops where I need to maintain a count and have a criteria on the iterations. > -Original Message- > From: Rob Dixon [mailto:[EMAIL PROTECTED] > Sent: Frid

RE: Users executing perl scripts

2003-12-17 Thread Paul Kraus
Create a symbolic link in usr/local/bin with the filename you want them to use. > -Original Message- > From: Hemond, Steve [mailto:[EMAIL PROTECTED] > Sent: Wednesday, December 17, 2003 9:11 AM > To: [EMAIL PROTECTED] > Subject: Users executing perl scripts > > > Hi people, > > I have

CSV file - Leading Zeros

2003-12-12 Thread Paul Kraus
Is there a way to write a CSV file so that excel wont drop the leading zero's from fields? I could use spreadsheet::writeexcel or OLE but that's like using a sledgehammer for something that needs to be hand tightened. Thanks. Paul -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comm

RE: New Object Notation vs @{$hash{key}}

2003-12-12 Thread Paul Kraus
> I wouldn't necessarily call it a bad habit as it does execute > properly, it just doesn't produce as readable of code... Rob > already covered -> well so I will just point you to some > "light" reading if you thirst for more... > > perldoc perlreftut > perldoc perlref > perldoc perldsc > per

New Object Notation vs @{$hash{key}}

2003-12-12 Thread Paul Kraus
I think I am picking up some bad habits so maybe you guys can help. I currently use this notation @{$hash{key}} to access an array stored in a hash. I keep seeing posts that it is better to use an object like notation. Can I see some examples on how you would access the array or an element of an a

String Date to apoch

2003-12-12 Thread Paul Kraus
How can I convert a date that is a string such as "12/12/03" to apoch so that I can then compare it to time and if its <= time do something. I can't give code because this is still a concept. But the check is that cron will scan a directory hourly or daily. Parse the filenames which are going to b

RE: 2nd doubt.

2003-12-10 Thread Paul Kraus
Not to be a pest but try and be more descriptive in your subject. It saves everyone time in trying to decide on what they can help you with. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: SMTP From field using MIME::Lite

2003-12-09 Thread Paul Kraus
This code works for me - #!/usr/bin/perl use strict; use warnings; use MIME::Lite; my $msg = MIME::Lite->new( From => '"Paul Kraus" [EMAIL PROTECTED]', To => '[EMAIL PROTECTED]',

RE: SMTP From field using MIME::Lite

2003-12-09 Thread Paul Kraus
> I wrote the following code: > > MIME::Lite->send('smtp', "mail.myserver.com", Timeout=>60); > > $msg = MIME::Lite->new( > From =>"[EMAIL PROTECTED]", > To =>'[EMAIL PROTECTED]', > > Subject =>"TEST",

RE: command line commands passed to perl script?

2003-12-09 Thread Paul Kraus
Nameofperlscript command1 command2 command3 Params stored in global variable @ARGV > -Original Message- > From: Ben Crane [mailto:[EMAIL PROTECTED] > Sent: Tuesday, December 09, 2003 11:23 AM > To: [EMAIL PROTECTED] > Subject: command line commands passed to perl script? > > > Hi all

RE: Databases - MS Sql Server Desktop Engine

2003-12-03 Thread Paul Kraus
I can't figure out how to connect to the database engine with odbc. Paul Kraus Xp pro sp1 workstation. > -Original Message- > From: Aman Raheja [mailto:[EMAIL PROTECTED] > Sent: Wednesday, December 03, 2003 12:23 PM > To: [EMAIL PROTECTED] > Subject: Re: Datab

Databases - MS Sql Server Desktop Engine

2003-12-03 Thread Paul Kraus
Is there a DBI driver for the MS Sql Server Desktop Engine? Paul -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Script Exit Status

2003-12-02 Thread Paul Kraus
Is there a way to have a perl script exit with a status code? For instance I have ascript that calls another script via system("somescript"); I want to then be able to get the exit status of that script. Paul -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EM

RE: Mechanize 500 connect failed

2003-12-02 Thread Paul Kraus
This is really annoying I get the same issue when I run the script from a Linux server as I do an a windows xp workstation. > -Original Message- > From: Paul Kraus [mailto:[EMAIL PROTECTED] > Sent: Tuesday, December 02, 2003 8:31 AM > To: [EMAIL PROTECTED] > Subject

Mechanize 500 connect failed

2003-12-02 Thread Paul Kraus
We discussed this some in an earlier thread but I have yet to resolve the issue. About 15% of them I run my script it will fail with this error. 500 Connect failed: Unknown error, Unknown Error at line ... The script is sound as it runs fine the rest of the time. I thought maybe its because the

  1   2   3   4   >