I have problems building CPAN on my Debian box. When I run the command:
cpan> install Bundle::CPAN
the following error message is returned at the bottom of the verbose
information presented during the install/build:
Running install for module Term::ReadKey
Running make for J/JS/JSTOWE/TermRead
Hi,
Can anyone tell me if I can short hand ?&*%$@ etc. as matches for my
regular expression. I don't want spaces, new line, carriage returns,
tabs etc. to be matched.
TIA,
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECT
Hi all,
I have been using Perl for a few months now for basic tasks like file
parsing etc but now need to be able to access my Perl scripts via a web
service.
I have installed SOAP::lite and have found loads of examples of how to
consume web services from Perl and articles on creating WSDL files
Gidday all,
How can I parse HTML to find comment tags
Specifically.
Thanks John,
For the explanation
I have done some debugging myself since posting, the character in
question turned out to be a hyphen that one of our content producers had
cut and paste from a word doc into our cms.
Regards
Colin
-Original Message-
From: John W. Krahn [mailto:[EMAIL
Gidday all,
What does this error mean please?
**
Colin Johnstone
Independent Interwoven Teamsite Analyst Programmer (Contractor)
eGovernment Delivery Team
Department of Employment and Training
Phone (07) 3244 6268
Fax (07) 3244 6265
Email
::XPath::XMLParser::as_string( $_ ) }
$nodeSet->get_nodelist();
@memberList = map { s|^.*(?=htdocs)||; $_; } @memberList;
@memberList = map { s|//|/|g; $_; } @memberList;
# %masterList = map { $_, 1 } @memberList;
while( @memberList ){
print( $_ . '\n'
::XPath::XMLParser::as_string( $_ ) }
$nodeSet->get_nodelist();
@memberList = map { s|^.*(?=htdocs)||; $_; } @memberList;
@memberList = map { s|//|/|g; $_; } @memberList;
# %masterList = map { $_, 1 } @memberList;
while( @memberList ){
print( $_ . '\n'
yBranch;
} else {
$list = 'None';
}
$debug->printlog("List: $list");
My debug log returns this
List: ARRAY(0x3bf048)
Im expecting to see the value attributes of the checkbox group being
returned as a comma delimited list, Wh
Gidday all,
I wish to access the elements of an array passed by reference
#get deploy list
my @$deployList = $task->GetVariable('deployList');
foreach( @$deployList ){
}
Any help appreciated
Thank You
Colin Johnstone
Interwoven Teamsite Analyst Programmer
eGovernment Deli
);
}
else{
$errorComment = "ERROR: " . &basename($srcFile) . " deletion
failed:\n";
$debug->printlog("$errorComment");
&abort(1, "$errorComment");
}
Regards
Colin
-Original Message-
From: Charles K. Clarkson [mailto
ot; Cmd: $cmd\nResult: $cmdResult\n";
$debug->printlog("$errorComment");
&abort(1, "$errorComment");
}
So want Im trying to achieve is delete file
Write the successful deletion or error to the log file then continue.
But it executes the else cla
n";
$errorComment .= " Cmd: $cmd\nResult: $cmdResult\n";
$debug->printlog("$errorComment");
&abort(1, "$errorComment");
}
So want Im trying to achieve is delete file
Write the successful deletion or error to the log file then con
Thank you I musthave just coded something wrong, your right they do work. Sorry!
-Original Message-
From: Raymond Raj [mailto:[EMAIL PROTECTED]
Sent: Friday, September 24, 2004 3:55 PM
To: Johnstone, Colin; [EMAIL PROTECTED]
Subject: RE: regex help
Hi!
what's problem in these re
I worked it out myself
$safeString = "News & Events";
$safeString =~ s!&!and!g;
$safeString =~ s!\s!_!g;
thank you
Colin
-Original Message-
From: Johnstone, Colin
Sent: Friday, September 24, 2004 3:32 PM
To: [EMAIL PROTECTED]
Subject: regex help
Gidday all,
Im trying to write a regex to convert spaces to underscores and ampersands to 'and'
can someone help.
$safeString = "News & Events";
$safeString =~ s/&/and/g;
$safeString =~ s/\s/_/g;
Regards
Colin
This E-Mail is intended only for the addressee
just broadbrush the approach.
Any help appreciated
Thank you
Colin
This E-Mail is intended only for the addressee. Its use is limited to that
intended by the author at the time and it is not to be distributed without the
author's consent. Unless otherwise stated, the State of Queensland
Hi John,
you certainly have given this module more thought than I did, you've given me
something to think about.
Thank you.
Colin
-Original Message-
From: perl.org [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 16, 2004 1:27 AM
To: [EMAIL PROTECTED]
Subject: Re: First m
Gidday all,
I have written a module to be used with our CMS 'Teamsite'
I wonder if any of you Perl gurus can see any holes in this.
It has methods to return the following
1) branch path
2) branch name
3) workarea
4) local path
any help appreciated thank you
Colin
given the following
egards
Colin
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 14, 2004 4:06 PM
To: Perl Beginners
Subject: Re: Regex help
Johnstone, Colin wrote:
> Hi Jim,
Hello, (my name is John BTW)
> rather than re-invent the wheel I would prefer if y
.
So in short the regex must remove any characters from the anchor text e.g the & in
'News & events'
and any spaces, basically any characters that cannot be used in a filename if they
have been inadvertently entered by the users.
Any help appreciated thank you
Colin
Hi Jim,
rather than re-invent the wheel I would prefer if you could fix this regex
I believe it covers all invalid characters one would encounter
s/[\w\&%'[EMAIL PROTECTED](\)&_\\+,\.=\[\]]//g;
I would then use it as a general purpose regex for validating filenames.
Regards
Colin
amp;%'[EMAIL PROTECTED](\)&_\\+,\.=\[\]]//g;
then convert it to lowercase.
The regex I found on the web throws an error and as a Perl newbie I don't know why?
Regards
Colin
This E-Mail is intended only for the addressee. Its use is limited to that
intended by the author at the time and it
:
int $modifiedArea * 0.0929;
$squareFeet = ( $units eq 'square feet' ) ? $area
: int $modifiedArea * 10.764;
$lettableArea = $squareMetres .qq[m2 or ] .
$squareFeet . qq[f2 (approx)];
iwpt_output( $lettableArea );
Regards
Colin
Thanks Wags, terrific.
Colin
"Wagner, David --- Senior Programmer Analyst --- WGO"
<[EMAIL PROTECTED]>
13/01/2004 12:03 PM
To: Colin Johnstone/Australia/Contr/[EMAIL PROTECTED], <[EMAIL PROTECTED]>
cc:
Subject: RE: Reg ex help
Gidday list,
Please I need a reg ex to return everything to the left of '\WORKAREA'
in this URL
$url = 'Y:\default\main\aphrwebAdmin\WORKAREA\Colin'
I tried
$url =~ s/(.*?)[\\WORKAREA]/$1/;
then we wish to remove the drive designation and the leading slash
Thanking
p;
Integrity,Site Utilities,Single Cycle Salary Review,Transition
Employees,Transactional,Well Being,When Life Changes,Workforce
Diversity,Workplace Practices,Your Career
__data__
"Bob Showalter" <[EMAIL PROTECTED]>
30/12/2003 02:22 PM
To: Colin Johnstone/Aus
ssist
Insurance
Management Development
New Hire Information
PaylinkPlus
PBC Tool - Urgent
Peace of Mind Benefits
Promotions
Reporting - Data
Quality & Integrity
Single Cycle Salary Review
Transactional
When Life Changes
Workplace Practices
Cheers
Colin
Bob Showalter <[EMA
different from the first I think Tim may
be onto something but can't see where.
Cheers
Colin
#!c:/iw-home/iw-perl/bin/iwperl
my $fileToOpen = shift;
# $string = qq[];
open( FILEHANDLE, $fileToOpen ) or die ("Could not open file
$fileToOpen");
undef $/;
Pulse Survey
Hiring
IDP Tool
Manager Services
Mobility
Other
Payroll Services
PBC Tool - Normal
Personnel Records
Reporting
Site Utilities
Transition Employees
Well Being
Workforce Diversity
Your Career
Cheers
Colin
James Edward Gray II <[EMAIL PROTECTED]>
30/12/20
Hello everyone,
I use the following to split a comma delimited list and get varying
results and I don't understand why.
my count of the elements in the splitdata array returns 43 but the select
list when displayed in our Content management system only has
approximately 23 items. Some items are
Gidday all,
I want to pass a boolean value as a parameter to a subroutine what should
I use shift or @_
and whats the difference please.
e.g
mySubRoutine(0);
sub mySubRoutine{
my $booleanParameter = @_;
return;
}
experience doing this.
Any Help appreciated.
Thank You
Colin Johnstone
Interwoven Analyst Programmer
IBM Australia.
= "";
my $formName = 'form'.$self->?
return($outHTML);
}
How do I reference the FRM_CNT variable of the package, am I on the right
track ?
Any help appreciated.
Thank You
Colin
package aphrweb:
scripts because of the earlier minitest failure?
Should I be concerned about any of this?
Thanks
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi Wiggins,
thats right I don't have access to error logs or command line to run it. I can only
run it through the browser.
Does it make sense that they have built a safeguard into the server that if I had set
permissions to 777 it would not run, but if I change to 755 it will.
Regards
Gidday All,
Further to my previous email If I change the permissions to 555 it works, but if I set
it to 777 it doesn't could this be a safeguard that is built into the server?
Any help appreciated.
Colin
-Original Message-
From: Johnstone, Colin
Sent: Wednesday, March 19, 2003
print "Content-Type: text/html\n\n";
print "Hello World !";
I ftp it in ASCII format set the appropriate permissions and still it doesn't run.
I get an Internal Server error.
Colin Johnstone
**
This me
k_referer) = 0;
if ($ENV{'HTTP_REFERER'}) {
if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$bd_domain|i) {
$check_referer = 1;
}
}
else {$check_referer = 1;}
if ($check_referer != 1) { &error('bad_referer') }
}
Any help appreci
he premises as an outpost of
the Hay Distance Education Centre, and a teacher visited regularly to work with local
students.
');
I don't understand?
Any help appreciated
Regards
Colin Johnstone
**
This
Gidday All,
With a view to accessibility we are limiting our publishing of PDFs on our site. We
tend to replace and pdfs by creating HTML pages by cutting and pasting from the PDF to
our CMS.
Is there a automated way of deconstructing a pdf using PERL.
Thanking you in advance
Colin
Gidday all,
>From this string I wish to return everything to the left of the last
occurence of "." if it exists.
string = "3.25.23.4";
Any help appreciated
Thank You
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
be better served by a traditional
database?
Thanks
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Gidday All,
Im trying to pass a hash to a subroutine now. When passing with other variables do I
have to pass it as a reference like I do an array. If so how do you dereference it, if
you have to at all.
Where am I going wrong?
sub generate_navIndex{
my ( $paramPath, $paramPageName, $para
= "\t\t$dataCell2\n";
$output .= "\t\t \n";
$output .= "\t\t$dataCell3\n";
$output .= "\t\n";
}
$output .= "";
return $output;
}
Any help appreciated
Thank You
Colin Johnstone
Thank you all for your help.
-Original Message-
From: Toby Stuart [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 23, 2003 13:44
To: 'simran'
Cc: '[EMAIL PROTECTED]'
Subject: RE: FW: Removing HTML Tags
> > > > -Original Message-
> > >
tags e.g and
. Of course their could be anynumber of attributes in the openning font tag.
Any help appreciated
Thanking you in anticipation
Colin Johnstone
John,
Thank you for your help.
Colin
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 15 January 2003 11:00 PM
To: [EMAIL PROTECTED]
Subject: Re: File Handling
Colin Johnstone wrote:
>
> Gidday all,
Hello,
> Im having trouble reading and w
elds{'Mobile'} . ",";
$outString .= $fields{'EmailAddress'};
#print "Out string =$outString";
push( @participants, $outString );
print "Num elements array participants = ".scalar( @participants )."";
#print "@participants\n\n";
open( OUTFILE, ">$filename") or die( "Cannot open file: $!");
while( @participants ){
my $val = shift( @participants );
print OUTFILE "$val\n";
}
close( OUTFILE ) or die( "Cannot close file: $!");
Any help appreciated.
Thank You
Colin Johnstone
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
EMAIL PROTECTED]
Num elements array participants = 3
Melbourne,Next Generation Alpha Servers - Simplifying Cluster Management
with Single System Image,HP Single Server Strategy - Itanium is
real,vcxzvcxzv,vcxzvcxz,vxzcvcxz,zxcvcxzvxc,vzcxvzcx,xczvcxzv,vzxcvzcxv,vcxv
zcxv,vzxcvzcxv,vzcxvxzcv,vzxcvzxcvz,[EMAIL PROTECTED]
Im pulling my hair out, maybe I've been at it too long today, Im going to
bed, hopefully the morning will bring a solution.
Any help appreciated.
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
//$workshop2/g;
What I would also like to do is preserve those carriage returns that appear
between lines in the text file as well.
Any ideas ?
Thanking you again
Colin
-Original Message-
From: vitaliy babiy [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, 14 January 2003 8:23 PM
To: [EMAIL PROTECTED
below.
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
$autoResponse = "responsepage.txt";
$from = "colin\@johnstonefamily.com";
$to = "colinjohnstone\@ozemail.com.au";
$subject = "Testing.. Testing..";
$sendmailpath="/usr/sbin/sendm
Gidday All,
Can I do this when looping through a Hash.
foreach my($k, $v)( %picDetails ){
do stuff to $v;
}
Thanking you in Anticipation
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
teful.
Long live the list!
Thank You, Regards and Christmas Cheer
Colin Johnstone
Website Project Officer
NSW Department of Education and Training
Australia
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Saturday, December 21, 2002 08:03
To: [EMAIL PROTECTED]
Su
Gidday all,
to kill an array or reset it you do
@arrayname();
how do you reset a hash
%hashname;
Regards
Colin Johnstone
Thank You Ramprasad,
Silly me, the previous time I used this regex the fileds were tab delimited. It's been
a long day her in Sydney Town, my concentration is starting to waver.
Regards
Colin
-Original Message-
From: Ramprasad [mailto:[EMAIL PROTECTED]]
Sent: Friday, Decemb
open(OUT, ">$outFilePath$outFileName");
print OUT ($output);
close(OUT);
print "Generating output file $outFileName";
}
The output I get is:-
Generating output file
Generating output file
Generating output file
Generating output file
Im used to working with
Gidday All,
Thank You for your help, I must have some other error that I can't find.
Regards
Colin
Gidday all,
In PHP if I want to add something to a string I do this
$output = "";
$output .= "A";
$output .= "B";
$output .= "C";
$output .= "D";
print $output;
How do I do the same in PERL please.
Thanking you in anticipation
Colin
Thank You Toby and Mark for your help
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
ph 9561 8643
Gidday All,
Im reading course names in from a text file and want to remove the course number from
the end of each course name. Can someone help me with the regex to do this.
e.g Mathematics 2 unit (15240)
to give me Mathematics 2 unit
Thanking you in anticipation.
Colin Johnstone
Thanks Mate, worked like a treat.
Colin
-Original Message-
From: Aman Thind [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 13, 2002 16:39
To: Johnstone, Colin
Subject: RE: Regex question
Just add another backslash to the "Substitute With" part of the expression
as in :
Gidday all,
I have a paragraph of text, I want to convert any double quotes around quoted text to
\" is this the correct reg ex
$paragraph =~ s{\"}{\\"}g;
Thanking you in anticipation
Colin Johnstone
stop it from converting the funny characters before I write it out to the text
file
or
should I run each email address through the regex each time I read the text file into
the array that I use.
Thanking you in anticipation
Colin
> -Original Message-
> From: Johnstone, Co
Hi Toby,
Thanks for your help again. I'll use the reg ex our system admin guy is reluctant to
install new modules on the webserver.
Thank You
Colin
-Original Message-
From: Toby Stuart [mailto:[EMAIL PROTECTED]]
Sent: Thursday, December 12, 2002 10:59
To: Johnstone, Colin
Cc:
as
[EMAIL PROTECTED]
Because of this she doesn't get the first email from us telling her that she needs to
confirm her subscription.
Any help appreciated.
Thanking you in anticipation
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks Danny
I must be doing something else wrong, I bet its variable scope, Im just getting my
head around it
Colin
-Original Message-
From: Danny Miller [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 17:13
To: Johnstone, Colin
Subject: RE: Regex help!!
Your regex is
Further to my previous message.
after fixing the ~= I get the following.
I know $screenOutput has a value because I see the html contained in the file Im
reading on the screen its just not doing the substitution.
please advise.
Colin
-Original Message-
From: Johnstone, Colin
Sent
lt;$locationResponsePageSkin") or die("Cannot open: $!");
while( my $line = ){
$line ~= s//$screenOutput/;
$responsePage .= $line;
}
close(IN);
print $responsePage;
}
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
ph 9561 8643
--
To
Thank you Wiggins,
and thankyou also for your help with scoping yesterday.
Colin
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 27, 2002 13:08
To: Johnstone, Colin
Cc: '[EMAIL PROTECTED]'
Subject: Re: Passing an array
Hi all,
I think somebody asked this the other day.
How does one pass an array to a subroutine please
Colin Johnstone
h.$newsletterName.".txt";
my $newsletter2_path =
"/web/www.det/www/ministerial/yr".$year."/".$short_month."/newsletters/";
my $newsletter2_html = $newsletter2_path.$newsletterName.".htm";
my $newsletter2_text = $newsletter2_path.$newsletterName.".txt
Hi Toby,
Cool, Thanks for your help man
Colin
-Original Message-
From: Toby Stuart [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, November 26, 2002 15:35
To: Johnstone, Colin
Cc: '[EMAIL PROTECTED]'
Subject: RE: Calculating currentdate without the time module
> -Ori
month and the day.
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
my $time = time();
print "Time is $time";
my $days = $time/86400;
print "The number of days since January 1 1970 = $days";
my $year = $days/365 + 1970;
print "Year is $year";
Thank
.
Thank You
Colin Johnstone
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
practice.
Colin Johnstone
Thank you all,
-Original Message-
From: Scott, Joshua [mailto:Joshua.Scott@;Jacobs.com]
Sent: Thursday, November 07, 2002 10:15
To: Johnstone, Colin
Subject: RE: Declaring a Hash
Hello,
Here is how you declare hash.
my %hash = ();
Joshua Scott
Security Systems Analyst, CISSP
626-568
Gidday all,
How does one declare a hash
our $hash = ();
Colin Johnstone
$record);
$subscribers1{$data[0]} = $data[1];
}
close IN;
-Original Message-
From: Nikola Janceski [mailto:nikola_janceski@;summithq.com]
Sent: Thursday, November 07, 2002 08:20
To: Johnstone, Colin; '[EMAIL PROTECTED]'
Subject: RE: die not working
add this:
use CGI::Carp '
chomp $record;
@data = split( /\|/, $record);
$subscribers1{$data[0]} = $data[1];
}
close IN;
The program dies but no error prints on the screen.
Where am I going wrong?
Colin Johnstone
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks Tim,
I'll give it a whirl.
Colin
-Original Message-
From: Timothy Johnson [mailto:tjohnson@;sandisk.com]
Sent: Wednesday, November 06, 2002 14:47
To: Johnstone, Colin; '[EMAIL PROTECTED]'
Subject: RE: Include files in PERL
I think 'use' is what you
m on every page.
Colin Johnstone
Website Project Officer
NSW Department of Education and Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I do this. Is this possible ?
Colin Johnstone
Website Project Officer
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
ph 9561 8643
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I do this. Is this possible ?
Colin Johnstone
Website Project Officer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Gidday All,
How do I find out the name of the current directory I am in before I do chdir.
Colin Johnstone
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
number as
the last two digits.
Any Help Appreciated
Thanks
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
don't do this. The query/posted data parsing is not as simple
as it seems. You are much safer if you
use CGI;
O'k Im willing to learn are there any instructions on using the use CGI module for
processing form variables. please.
Colin Johnstone
Website Project Officer
Corporate Website
That would be a hash. (or an associative array)
for example I read my form variables into a hash for processing.
I then reference them by the form fieldname.
#read STDIN, $PostData, $ENV{'CONTENT_LENGTH'};
#print "post data =$PostData";
#postdata will look like this
#[EMAIL PROTECTED]&radActi
e .= "$word ";
}
elsif((length($line)+length($word))>75){
$strOutput .= "$line";
$line = "";
$line .= "$word ";
}
}
#I have jumped out of the loop but is their elements in $line that
#need to be added to
Hi all,
How do I print out the copywrite symbol to a text file please.
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
NSW Department of Education and Training
AUSTRALIA
ph 9561 8643
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Thanks Vinai,
I will talk to our server team
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
NSW Department of Education and Training
AUSTRALIA
ph 9561 8643
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
so therefore we have to send out a newsletter.
Or we could just check the date of each file and send out those files that matched
that days date.
I've generated the newsletter, and got all the sendmail routines, just need to get
this working.
Any help appreciated.
Colin Johnstone
We
lpath -t");
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";
print SENDMAIL "This is a test e-mail.\n\n";
print SENDMAIL "-Colin Johnstone";
close (SENDMAIL);
print("sending to...: $to"
Hi All,
Yes silly me, I found the problem the second record replaced the first as the key was
the same.
Thank You
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Directorate
ph 9561 8643
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
records{$data[0]} = $data[1];
}
close IN;
while(($k,$v)=each(%records)){
print"$k => $v";
}
all that gets stored in the hash is the last record how do I get all records stored in
the hash
please.
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs
(SENDMAIL, "| $sendmailpath -t");
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";
print SENDMAIL <
ss
wibble
END
close (SENDMAIL);
All it does is send the emails as plain text, any suggestions
Colin J
lpath -t");
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";
print SENDMAIL <
ss
wibble
END
close (SENDMAIL);
Any Ideas?
Colin Johnstone
Website Project Officer
Corporate Website Unit
Public Affairs Dire
Hi,
If you happen to read this, please could you leave the adress of the site where you
learnt perl, or the best site concerning perl that you have seen?
Thanks a lot
Colin
ps. if you can't rember the adress of-hand, don't bother spending hours trying to find
it, I wouldn'
98 matches
Mail list logo