--- drieux [EMAIL PROTECTED] wrote:
Ovid,
I love the smell of 'primate-ism'
It could be merely the way that you are presenting the
problem - and a desire to defend an anachronistic model
of MVC, based upon the underlying 'primate-ism', and
the scary thought of 'recursion' in
What I actually trying to do is to make the error send to my mail
box ( at this moment ) while my script is running in public. So it does
a little more then die, but I still trying to keep the command line simple.
looks like unless $something or die
My code is some what like this :
I'm not sure if this question has been asked before but it may never be
as relevant. I'm a Perl programmer trying to survive the Bush recession.
What's a good resource for finding jobs? All I ever see are job listings
for that icky Microsoft stuff. What options are open to the nattering
It was Wednesday, July 30, 2003 when Camilo Gonzalez took the soap box, saying:
: I'm not sure if this question has been asked before but it may never be
: as relevant. I'm a Perl programmer trying to survive the Bush recession.
: What's a good resource for finding jobs? All I ever see are job
Heyuck Heyuck.
So I'm told I need to write a simple database to handle ticketing information
for customers when they call.
Things like DSL problems, dialup problems... nothing major. MySQL database
backend with a perl powered web frontend.
Then I was told it needs to go htrough a VPN. Cool,
Hi all,
I am writing my own form processing script as a learning exercise and
want to know how to reload the page after processing the form to clear
the forms processor, to prevent the user from refreshing the page and
duplicating their submission.
Im a PHP guy normally and just simply type the
Johnstone, Colin wrote:
Hi all,
I am writing my own form processing script as a learning exercise and
want to know how to reload the page after processing the form to clear
the forms processor, to prevent the user from refreshing the page and
duplicating their submission.
Im a PHP guy normally
Dennis Stout [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Heyuck Heyuck.
So I'm told I need to write a simple database to handle ticketing
information
for customers when they call.
Now I'm told I have to make it talk to 2 more SQL servers, an Oracle
server,
an LDAP server, a
Always group reply so everyone can help and be helped.
Johnstone, Colin wrote:
Thank You,
I tried this but with no success
#!/usr/bin/perl -w
print 'Location: http://www.mydomain.com/cgi-bin/myform.cgi';
You need to indicate the end of the headers with a double new line:
print Location:
It works!, Thank you for your help
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Thursday, 31 July 2003 2:50 PM
To: Johnstone, Colin; [EMAIL PROTECTED]
Subject: Re: Help with page reloads
Always group reply so everyone can help and be helped.
Johnstone,
On Tue, Jul 29, 2003 at 11:45:29AM -0400, Harter, Douglas wrote:
Is there a way to display to STDOUT what each statement looks like
as it executes without going into the debugger? On our old system
we called this VERIFY. You can do it in bash by doing a set -x.
It's quite a bit more verbose
see:
use strict;
use Data::Dumper;
sub simpleClone($){
my ($toClone) = @_;
my $Return;
if (ref($toClone) eq 'HASH'){
$Return = {};
while (my ($key, $value) = each(%$toClone)){
$Return-{$key} = simpleClone($value);
}
} elsif (ref($toClone) eq
Less code:
sub simpleClone($){
my ($toClone) = @_;
if (ref($toClone) eq 'SCALAR'){
my $temp = $$toClone;
return \$temp;
} elsif (ref($toClone) eq 'ARRAY') {
return [map{simpleClone($_)}(@$toClone)];
} elsif (ref($toClone) eq 'HASH'){
return {map {$_
On Wed, Jul 30, 2003 at 08:43:48AM +0200, [EMAIL PROTECTED] wrote:
Less code:
sub simpleClone($){
Even less[0]
use Storable qw(dclone);
my $dolly = dclone($dolly);
Storable is also fast and comes standard with 5.8.
--
Steve [0] actually quite a bit more, but you don't
There is also a good article on the topic at
http://www.stonehenge.com/merlyn/UnixReview/col30.html
snip
Now, this simple deep_copy routine will break if there are recursive data pointers
(references that point to already seen data higher in the tree). For that, you might
look at the dclone
Hi,
i just need someone to guide me please
I'm retrieving from my host email(with attachment) using Net::Pop3
I print the message content- where we can see
Charsert =iso-8869-1
--- =_NextPart_001
to, subject
etc
now i see on the bottom of this message
Content-type: image/gif;
printPlease enter first name:\n;
chomp($first = STDIN)
printEnter a last name:\n;
chomp($last = STDIN);
format = STDOUT
+---
|@
|$first
|@
|$last
+---
.
Hello, lets see some code.
-Original Message-
Hey all,
I am using the perl-ldap module (to access MS AD, not that that
matters to this question though :-).
My problem is I don't understand part of the example code - it all
works just fine, but using the as_struct method, I need to just
display the cn attribute (I need to
[Snipped]
I was thinking (and the documents say) these are references, but I
have had a hard time getting my head around references...
I have tried adding this
print @$valref{cn};
but all it prints is
ARRAY(0x25d9ec4)
and I want it to print the value of cn which is
Hey bseel,
My MUA believes you used
to write the following on Wednesday, July 30, 2003 at 9:38:08 AM.
I was thinking (and the documents say) these are references, but I
have had a hard time getting my head around references...
I have tried adding this
print
use Data::Dumper;
print Dumper($ref);
-Original Message-
From: Tim Musson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 3:40 PM
To: [EMAIL PROTECTED]
Subject: Re: Help please - still not understanding references I think...
Hey bseel,
My MUA believes you used
to
Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion and
copied all the contents onto my hard drive:
[EMAIL PROTECTED]:~/RapheTask$ mkdir cd
[EMAIL PROTECTED]:~/RapheTask$ cp -aRv /cdrom cd/
`/cdrom' - `cd/cdrom'
`/cdrom/JPEG Covers' - `cd/cdrom/JPEG Covers'
Ramon == Ramon Chavez [EMAIL PROTECTED] writes:
Ramon I meant that this program cuts rectangles from the original
Ramon images, all of them with the same proportions. Like if you were
Ramon cutting cookies from the paste for baking (lol). It then
Ramon resizes all the resulting images to fit
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Tim Musson) writes:
Hey all,
I am using the perl-ldap module (to access MS AD, not that that
matters to this question though :-).
My problem is I don't understand part of the example code - it all
works just fine, but using the
Thanks for all of your help! I got it with the module, but I am going to play with
some of that code now :). Thanks for all of your help.
Brian Seel
High School Intern
Micron Technology
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Hi All,
I need to unload data from sybase and output it as
fixed length records into a MQ using perl.
1) Is is possible to write to MQ using perl ?
2) If I need to write out the fixed length records, do
I have to format each field using sprintf function ?
Are there any other alternatives ?
I have been noticing the ? used quite a bit, and I don't know what it does. I know in
regular expressions it means 0 or 1 but what about in a time like:
for my $op ( and, or , xor ) {
print 0 $op 0 , eval 0 $op 0 ? TRUE : FALSE;
print 0 $op 1 , eval 0 $op 1 ? TRUE : FALSE;
print 1
Have a look to this :
http://www.perldoc.com/perl5.8.0/pod/perlop.html#Conditional-Operator
HTH,
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 5:06 PM
To: [EMAIL PROTECTED]
Subject: ? thinger
I have been noticing the ? used
Thanks Peter!,
PS That's because you missed out the next line, where the value from
PS (the equivalent of) @$valref{cn} is dereferenced again with
PS @$attrVal.
PS I don't know why the dereferencing is done in the example with
PS @$valref{$attrName}; that's needlessly complicated (single
The following command line will give you the text:
C:\perldoc perlop
I have pasted here the relevant section for you :
snip
Conditional Operator
Ternary ?: is the conditional operator, just as in C. It works much
like an if-then-else. If the argument before the ? is true, the argument
Knowledge is of two kinds. We know a
subject ourselves, or we know where we can
find information on it.
Samuel Johnson (1709 - 1784)
There are a lot of info from perldoc.
Type
C:\perldoc perldoc
To learn how to use perldoc ;)
José.
-Original Message-
From: [EMAIL PROTECTED]
-Original Message-
From: awarsd [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 8:06 AM
To: [EMAIL PROTECTED]
Subject: Mime::Parser starter
Hi,
i just need someone to guide me please
I'm retrieving from my host email(with attachment) using Net::Pop3
I print the message
Pablo Fischer wrote:
Thanks!!!
That's what I was looking for!
Yep, the file has a single record, It works, thanks!
Now looking your code, the difference its the local $/. What does local $/ its
doing?
The scalar $/ is a perdefined variable which is the 'input record
separator'. It is set
Sorry - some spelling mistakes there:
Rob Dixon [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
Pablo Fischer wrote:
Thanks!!!
That's what I was looking for!
Yep, the file has a single record, It works, thanks!
Now looking your code, the difference its the local $/. What
Kevin Zembower wrote:
Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion
and copied all the contents onto my hard drive:
[snip]
Then, I edited, listed and ran the program:
[EMAIL PROTECTED]:~/RapheTask$ cat ./processAVimages.pl
#! /usr/bin/perl -w
use
Platform: DELL 8200 with XP Prof. SP1 and Oracle 9.2 with the test DB.
I'm new to PERL and need some guidance on getting to run on my PC. The PERL files
were installed when I implemented Oracle 9.2. I didn't add any other code.
My PERL files are located at:
If I have a number like so:
5.8592675
I need to make it a x.xx instead of x.x and I need to round it up to the next
hundredth like so : 5.86
I can't seem to remember the round type functions name and am always screwy with
sprintf.
What combo of sprintf() and round() or whatever would
Hello...
[snip]
-Original Message-
From: Raghupathy [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 11:03 AM
To: [EMAIL PROTECTED]
Subject: fixed length records and MQ
Hi All,
I need to unload data from sybase and output it as
fixed length records into a MQ using perl.
1) Is
It was Wednesday, July 30, 2003 when Dan Muey took the soap box, saying:
:
: If I have a number like so:
: 5.8592675
:
: I need to make it a x.xx instead of x.x and I need to round it up to the
next hundredth like so : 5.86
:
: I can't seem to remember the round type functions name and
It was Wednesday, July 30, 2003 when Dan Muey took the soap
box, saying:
:
: If I have a number like so:
: 5.8592675
:
: I need to make it a x.xx instead of x.x and I need
to round it up to the next hundredth like so : 5.86
:
: I can't seem to remember the round type
It ran and just listed the contents of the
helloworld.pl file. PERL ran but the .pl
program didn't.
Are you sure it didn't run? You said it was under the default-web-app
directory, so probably all it does is print a bunch of stuff to the console
(or browser).
Did you look at the code? What
First, your Perl is not a complete version of Perl. You just have the
compiler of Perl.
You almostly missed some very important modules such as strict, warnings,
CGI..etc.
And second, your Perl is out of dated. for Win32 OS, Perl is up to 5.8.0
now.
So go to
I am trying to get .15 and end up with 0.15. I have tried a number of
combinations of sprintf and %f.
sprintf %.2f
sprintf %2.2f
sprintf % .2f
sprintf % 2.f
and I always get a 0.15.
Do I just remove with a regex or am I missing
Hi,
I want to do something similar, read multiple files and
extract some piece of readed lines for a file or screen,
to generate te output file could be used unix redirection.
Do you have new ideas how to work with multiple files ?
Thanxs
- Original Message -
From: LI NGOK LAM [EMAIL
I am trying to get .15 and end up with 0.15.
I don't believe that .15 is a valid floating point value, I think there
always has to be at least one digit to the left of the decimal... so the f
format won't help.
Using a regex might be the easiest way to solve the problem since I don't
know that
Hello all,
I was wondering if somebody out there had a perl script that would delete everything
below
-Original Message-
in an email? I have a workflow engine which grabs the entire body of an email an
updates a worklog. The problem is it grabs the whole email instead of just the
Not really have any new ideas, I still using looping process to get job
done.
But I have a new direction for this but still digging. ( feel
chocking just
really like mining ;-) )
perldoc -f fork
perldoc -f pipe
perldoc -m Thread
perldoc perlipc
HTH
- Original Message -
From:
You could probably do:
$email =~ /^(.*)-Original Message-/;
Then $1 would have your text, I am not sure if it will keep the line breaks or not,
but you can play with that a little.
Brian Seel
HS Intern
-Original Message-
From: Joon Hahn [mailto:[EMAIL PROTECTED]
Sent:
Hello, lets see some code.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 29, 2003 9:38 PM
To: [EMAIL PROTECTED]
Subject: Help with Formatting
Hello All:
I am trying to format a check. Everything is fine except I cannot
print the
Rob Dixon wrote:
Kevin Zembower wrote:
Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion
and copied all the contents onto my hard drive:
[snip]
Then, I edited, listed and ran the program:
[EMAIL PROTECTED]:~/RapheTask$ cat ./processAVimages.pl
#!
I'm looking at Archive::Zip to extract a single text file from a zip file that is
ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is compressed pretty well.
(about 170 MB regular 18MB zipped up)
Data.txt is apx 170MB
Data.txt is zipped into
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
I am trying to get .15 and end up with 0.15. I have tried a number of combinations
of sprintf and %f.
sprintf %.2f
sprintf %2.2f
sprintf % .2f
sprintf % 2.f
and I always get a 0.15.
Do I just remove with a regex or am I missing
Rob Hanson wrote:
I am trying to get .15 and end up with 0.15.
I don't believe that .15 is a valid floating point value, I think there
always has to be at least one digit to the left of the decimal... so the f
format won't help.
perl -e print .15
OUTPUT
0.15
:)
Rob
--
To
Joon Hahn wrote:
Hello all,
I was wondering if somebody out there had a perl script that would delete everything
below
-Original Message-
in an email? I have a workflow engine which grabs the entire body of an email an
updates a worklog. The problem is it grabs the
whole
Hi!
Im gonan try to help you, cause Im doing the same. Getting certain files from
a FTP Server, saving them in a directory already defined, unziping them in a
temp directory, parsing the file (thanks to all the list), and saving some
data to a MySql DataBase.
Data.txt is apx 170MB
Data.txt
The incoming mailbox or reply to mailbox is an exchange mailbox. Can I even use perl
if it's coming through an exchange box?
Joon
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 11:20 AM
To: [EMAIL PROTECTED]
Subject: Re: stipping away text
Dan Muey wrote:
I'm looking at Archive::Zip to extract a single text file from a zip file that is
ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is compressed pretty well.
(about 170 MB regular 18MB zipped up)
Data.txt is apx 170MB
Data.txt
Hi!
Howdy!
Im gonan try to help you, cause Im doing the same. Getting
certain files from
a FTP Server, saving them in a directory already defined,
unziping them in a
temp directory, parsing the file (thanks to all the list),
and saving some
data to a MySql DataBase.
Cool
Dan Muey wrote:
I'm looking at Archive::Zip to extract a single text file
from a zip
file that is ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is
compressed
pretty well. (about 170 MB regular 18MB zipped up)
Data.txt is apx
Any pointers/ideas/experience about how to do that?
Hi Dan.
The program below is the very basic stuff to do what you
want. It does no error checking except to make sure that the
zip file opened OK, and just extracts the first file in the
archive with to a file with a name prefixed
El día Wednesday 30 July 2003 6:45 a Dan Muey mandó el siguiente correo:
I guess I'm a bit lost as to where $this-{WHATEVERS} gets created and
where and how you call descomprimir_zip();
All its a class that I made.
All I need to do is extract one file from one zip file
into one text file all
Dan Muey wrote:
Dan Muey wrote:
I'm looking at Archive::Zip to extract a single text file
from a zip
file that is ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is
compressed
pretty well. (about 170 MB regular 18MB zipped up)
Dan Muey wrote:
I'm looking at Archive::Zip to extract a single text file
from a zip
file that is ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is
compressed
pretty well. (about 170 MB regular 18MB zipped up)
Data.txt is
Dan Muey wrote:
Or would this be right for grabbing a certain file fomr a multi file zip archive:
(long variable names are just for descriptive purposes ;p)
for($zip-members) {
if($_-fileName =~ $filenameinzipiwanttograb) {
$_-extractToFileNamed($filenameiwanttocreathere) or die 'error
Dan Muey wrote:
Or would this be right for grabbing a certain file fomr a
multi file
zip archive: (long variable names are just for descriptive purposes
;p)
for($zip-members) {
if($_-fileName =~ $filenameinzipiwanttograb) {
$_-extractToFileNamed($filenameiwanttocreathere) or
Dan Muey wrote:
Dan Muey wrote:
I'm looking at Archive::Zip to extract a single text file
from a zip
file that is ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is
compressed
pretty well. (about 170 MB regular 18MB
Joon Hahn wrote:
The incoming mailbox or reply to mailbox is an exchange mailbox.
Can I even use perl if it's coming through an exchange box?
Not unless MS Exchange has OLE (ActiveX) capabilities, which
it probably has but I can't be sure. There are OLE modules in
CPAN, but I don't know if
Anyone using perl to access CVS? The CVS repository I need to access does
not allow anonymous or just plain read-only access, So I need to hard
code a username and password. Yuk..
Anyone have any idea's to get around this with perl?
Thanks
Denis
--
To unsubscribe, e-mail: [EMAIL
[EMAIL PROTECTED] wrote:
Hello All:
I am trying to format a check. Everything is fine except I cannot print
the line box surrounding the check items:
+---+
| |
| |
+---+
How do I
The technique I described is useful only if you don't care what part of the
image is being thrown away. In my case it doesn't matter too much. I mean,
it doesn't really affect to me.
But. Let's just say you have horizontal and vertical images taken with you
digital camera (in my case), and you
Li Ngok Lam wrote:
KENNETH JANUSZ wrote:
Platform: DELL 8200 with XP Prof. SP1 and Oracle 9.2 with the test DB.
I'm new to PERL and need some guidance on getting to run on my PC. The PERL
files were installed when I implemented Oracle 9.2. I didn't add any other
code.
My PERL
Hello all I have a script that reads in a control file
that list a dir. to
change to inside the control file I have
Dir: /cf/courseware
The part of the Perl script that I run to pull in that
info is
# Open the control file or log
my $control_file= /home/qgriff/FTP.CTL;
unless ( open CTL,
Title: installing perl mod's
I'm having trouble installing certain modules...they bomb out during the make processsee attachments.
perl -MCPAN -e 'install Apache::Cookie'
perl -MCPAN -e 'install DBD::mysql'
This should work other modules where installed and work fine using the
I have downloaded the perl/tk module Tk804.02 from CPAN.ORG. I've unzipped and
untarred it and placed it and it sub-directories uner /. But my perl script can not
find it. I get the response Cann't locate Tk.pm in @INC. What to do?
Thanks a lot .
david wrote:
[EMAIL PROTECTED] wrote:
Hello All:
I am trying to format a check. Everything is fine except I cannot print
the line box surrounding the check items:
+---+
| |
| |
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, July 31, 2003 5:44 AM
Subject: Re: I'm a Nebie to PERL
[snap]
It ran and just listed the contents of the helloworld.pl file. PERL
ran but
the .pl program didn't.
Any idea how to
Hi!
I have an array (@archivo), and each line has pipes (|), so Im using split,
but Im using 'sleep 1' to make it 'slower' so I can see line by line.
foreach $i (@archivo) {
#Dont count the first and last line
if($count$size || $count$size) {
chomp($i);
($correo,
Solved;
Another case of buffering, the right code:
foreach $i (@archivo) {
#Dont count the first and last line
if($count$size || $count$size) {
($correo, $clave, $nombre, $registro, $id, $sexo, $password) = split(/\|/,
$i);
($user, $host) = split(/\@/, $correo);
Hodge, Jeff F (ECIII) wrote:
I'm having trouble installing certain modules...they bomb out during the
make processsee attachments.
perl -MCPAN -e 'install Apache::Cookie'
perl -MCPAN -e 'install DBD::mysql'
This should work other modules where installed and work fine using the same
Hi,
Pablo, you should write this at line of IF command:
if($count0 $count$#archivo) {
I hope you get the right thing you want.
Bye,
Josimar
- Original Message -
From: Pablo Fischer [EMAIL PROTECTED]
To: Perl Beginners [EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 4:48 PM
Hi!
I need to make an array of 3000 elements, I have 7 arrays (sub-arrays?). I
need to do this:
Take first 9 of Arr1, push them to the BIG ARRAY and remove this 9 from the
'subarray'
Take first 9 of Arr2, push them to the BIG ARRAY and remove this 9 from the
'subarray'
Take First 9 of Arr3,
Hi again;
Sorry I forgot to said that when I finish to take the first 9 elements of
arr7, I need to restart in the ARr1. thats Why I need to remove those
elements.
Thanks!
El día Wednesday 30 July 2003 11:09 a Pablo Fischer mandó el siguiente correo:
Hi!
I need to make an array of 3000
Hi! I solved it:
for($i=0; $i($#archivo-2); $i++) {
#print FSF\n;
for($j=0; $j9; $j++) {
push(@lista_final, $correos_p[$j]);
push(@lista_final, $correos_h[$j]);
push(@lista_final, $correos_y[$j]);
push(@lista_final, $correos_l[$j]);
On Thu, Jul 31, 2003 at 12:17:10AM +, Pablo Fischer wrote:
Hi! I solved it:
for($i=0; $i($#archivo-2); $i++) {
#print FSF\n;
for($j=0; $j9; $j++) {
push(@lista_final, $correos_p[$j]);
push(@lista_final, $correos_h[$j]);
push(@lista_final, $correos_y[$j]);
Hi,
There is this warning which I can't remove :
Illegal hexadecimal digit '
' ignored at test.pl line 131, FH line 23.
test.pl is the name of the program while FH is a file handle(read only).
Part of my code is:
129 $ln = FH;
130 @flds = split(/ /,$ln);
131 if($flds[5] =~
85 matches
Mail list logo