CPAN Newbie Question

2006-07-05 Thread Colin Segovis
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

Character class for ?&*%$@ etc...

2006-03-16 Thread Colin Robinson
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

Perl and Webs Services

2006-03-06 Thread Colin Robinson
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

Finding comment tags

2005-05-12 Thread Johnstone, Colin
Gidday all, How can I parse HTML to find comment tags Specifically.

RE: Wide character in print?

2005-04-05 Thread Johnstone, Colin
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

Wide character in print?

2005-04-05 Thread Johnstone, Colin
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

First time parsing XML

2005-04-01 Thread Johnstone, Colin
::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'

First time Parsing XML

2005-04-01 Thread Johnstone, Colin
::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'

Using cgi.pm for checkbox goups

2004-11-15 Thread Johnstone, Colin
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

Accessing elements of an array passed by reference

2004-11-14 Thread Johnstone, Colin
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

RE: Unlink ? [edited]

2004-11-14 Thread Johnstone, Colin
); } else{ $errorComment = "ERROR: " . &basename($srcFile) . " deletion failed:\n"; $debug->printlog("$errorComment"); &abort(1, "$errorComment"); } Regards Colin -Original Message- From: Charles K. Clarkson [mailto

Unlink ? [edited]

2004-11-14 Thread Johnstone, Colin
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

Unlink ?

2004-11-14 Thread Johnstone, Colin
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

RE: regex help

2004-09-23 Thread Johnstone, Colin
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

RE: regex help

2004-09-23 Thread Johnstone, Colin
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

regex help

2004-09-23 Thread Johnstone, Colin
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

Site management - content deletion stage 1

2004-09-19 Thread Johnstone, Colin
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

RE: First module

2004-09-15 Thread Johnstone, Colin
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

First module

2004-09-14 Thread Johnstone, Colin
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

RE: Regex help

2004-09-13 Thread Johnstone, Colin
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

RE: Regex help

2004-09-13 Thread Johnstone, Colin
. 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

RE: Regex help

2004-09-13 Thread Johnstone, 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

Regex help

2004-09-13 Thread Johnstone, 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

Number formatting

2004-08-04 Thread Colin . Johnstone
: 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

RE: Reg ex help

2004-01-12 Thread Colin Johnstone
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

Reg ex help

2004-01-12 Thread Colin Johnstone
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

Re: Splitting Comma delimited list

2003-12-29 Thread Colin Johnstone
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

RE: Splitting Comma delimited list

2003-12-29 Thread Colin Johnstone
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

RE: Splitting Comma delimited list

2003-12-29 Thread Colin Johnstone
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 $/;

Re: Splitting Comma delimited list

2003-12-29 Thread Colin Johnstone
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

Splitting Comma delimited list

2003-12-29 Thread Colin Johnstone
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

When to USE shift or @_

2003-12-19 Thread Colin Johnstone
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; }

DBCS Charater sort

2003-11-30 Thread Colin Johnstone
experience doing this. Any Help appreciated. Thank You Colin Johnstone Interwoven Analyst Programmer IBM Australia.

Package Help

2003-11-13 Thread Colin Johnstone
= ""; 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:

Mini perl error during build

2003-07-14 Thread Colin
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]

RE: Trouble running perl scripts.

2003-03-18 Thread Johnstone, Colin
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

FW: Trouble running perl scripts.

2003-03-18 Thread Johnstone, Colin
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

Trouble running perl scripts.

2003-03-18 Thread Johnstone, Colin
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

Check url for form submission

2003-03-09 Thread Johnstone, Colin
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

PErl subroutine

2003-03-06 Thread Johnstone, Colin
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

Deconstructing a PDF using PERL

2003-03-03 Thread Johnstone, Colin
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

Reg ex help

2003-02-24 Thread Colin Johnstone
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]

Text file or database

2003-02-20 Thread Colin Johnstone
be better served by a traditional database? Thanks Colin -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Passing a Hash to a Subroutine

2003-02-11 Thread Johnstone, Colin
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

Passing an array to a subroutine

2003-02-11 Thread Johnstone, Colin
= "\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

RE: FW: Removing HTML Tags

2003-01-22 Thread Johnstone, Colin
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- > > >

Removing HTML Tags

2003-01-22 Thread Johnstone, Colin
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

RE: File Handling

2003-01-15 Thread 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

CSV File Creation

2003-01-14 Thread Johnstone, Colin
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]

File Handling

2003-01-14 Thread Colin Johnstone
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]

RE: re slurping a text file

2003-01-14 Thread Colin Johnstone
//$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

Slurping a Text file

2003-01-14 Thread Colin Johnstone
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

Looping through a Hash

2003-01-08 Thread Johnstone, Colin
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]

Re: Perl and Arrays

2002-12-22 Thread Johnstone, Colin
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

killing a hash

2002-12-20 Thread Johnstone, Colin
Gidday all, to kill an array or reset it you do @arrayname(); how do you reset a hash %hashname; Regards Colin Johnstone

RE: Perl and arrays

2002-12-20 Thread Johnstone, Colin
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

Perl and arrays

2002-12-20 Thread Johnstone, Colin
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

RE: PERL String Manipulation

2002-12-19 Thread Johnstone, Colin
Gidday All, Thank You for your help, I must have some other error that I can't find. Regards Colin

PERL string manipulation

2002-12-19 Thread Johnstone, 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

Re : Reg ex help!

2002-12-19 Thread Johnstone, Colin
Thank You Toby and Mark for your help Colin Johnstone Website Project Officer Corporate Website Unit Public Affairs Directorate ph 9561 8643

Reg ex help!

2002-12-19 Thread Johnstone, Colin
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

RE: Regex question

2002-12-12 Thread Johnstone, Colin
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 :

Regex question

2002-12-12 Thread Johnstone, Colin
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

FW: Preserving funny characters in email addresses

2002-12-11 Thread Johnstone, Colin
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

RE: Preserving funny characters in email addresses

2002-12-11 Thread Johnstone, Colin
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: &#

Preserving funny characters in email addresses

2002-12-11 Thread Johnstone, Colin
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]

RE: Regex help!!

2002-12-01 Thread Johnstone, Colin
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

FW: Regex help!!

2002-12-01 Thread Johnstone, Colin
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

Regex help!!

2002-12-01 Thread Johnstone, Colin
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

RE: Passing an array to a subroutine

2002-11-26 Thread Johnstone, Colin
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

Passing an array to a subroutine

2002-11-26 Thread Johnstone, Colin
Hi all, I think somebody asked this the other day. How does one pass an array to a subroutine please Colin Johnstone

Help perl gurus

2002-11-25 Thread Johnstone, Colin
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

RE: Calculating currentdate without the time module

2002-11-25 Thread Johnstone, Colin
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

Calculating currentdate without the time module

2002-11-25 Thread Johnstone, Colin
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

Can perl read a word doc

2002-11-21 Thread Johnstone, Colin
. Thank You Colin Johnstone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Reading Emails sent to Server

2002-11-07 Thread Johnstone, Colin
practice. Colin Johnstone

RE: Declaring a Hash

2002-11-06 Thread Johnstone, Colin
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

Declaring a Hash

2002-11-06 Thread Johnstone, Colin
Gidday all, How does one declare a hash our $hash = (); Colin Johnstone

RE: die not working

2002-11-06 Thread Johnstone, Colin
$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 '

die not working

2002-11-06 Thread Johnstone, Colin
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]

RE: Include files in PERL

2002-11-05 Thread Johnstone, Colin
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

Include files in PERL

2002-11-05 Thread Johnstone, Colin
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]

Query String Processing

2002-11-05 Thread Johnstone, Colin
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]

Query String processing

2002-11-05 Thread Johnstone, Colin
I do this. Is this possible ? Colin Johnstone Website Project Officer -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Current Directory Name

2002-10-30 Thread Johnstone, Colin
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]

Glob

2002-10-29 Thread Johnstone, Colin
number as the last two digits. Any Help Appreciated Thanks Colin -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Using Use:CGI to process form variables

2002-10-21 Thread Johnstone, Colin
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

RE: A better way to handle array index?

2002-10-19 Thread Johnstone, Colin
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

RE: How to wrap a sentence?

2002-10-18 Thread Johnstone, Colin
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

copywrite symbol

2002-10-18 Thread Johnstone, Colin
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

RE: Get Script to run same time each day automatically

2002-10-16 Thread Johnstone, Colin
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

Get Script to run same time each day automatically

2002-10-16 Thread Johnstone, Colin
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

Sendmail Problems

2002-10-15 Thread Johnstone, Colin
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"

RE: Hashes

2002-10-13 Thread Johnstone, Colin
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

Hashes

2002-10-13 Thread Johnstone, Colin
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

Sending HTML Emails with SENDMAIL

2002-10-08 Thread Johnstone, Colin
(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

How to send HTML emails with Sendmail

2002-10-07 Thread Johnstone, Colin
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

references

2002-09-17 Thread Colin
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'