Re: Labelling Radio Group Values

Hi Shlomi Thanks for your comments. In fact, the problem was enirely my own fault and did not exihibit in the code I published. More specifically the hash I created in %TiesHash did not use the correct Key - hence it didn't work. Get that right and the rest falls into place nicely. St

Labelling Radio Group Values

I have sucessfully created as Radio-group along the lines of @TiesArray = SSDArray($uniqueorgref); if (@TiesArray[0] ne "") { @TiesDesc = SSDDescArray($uniqueorgref); %TiesHash = @TiesDesc; $q = new CGI; print $q->start_form(-method=>"POST", -action=>"http://../cgi-bin/ViewQuote.pl";), $q->

Re: Parsing TXT document and output to XML

On Wed, May 27, 2009 at 6:27 PM, Stephen Reese wrote: > List, > > I've been working on a method to parse a PDF or TXT document and > output the results to XML over at Experts Exchange. > http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_24439630.html

Parsing TXT document and output to XML

List, I've been working on a method to parse a PDF or TXT document and output the results to XML over at Experts Exchange. http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_24439630.html You may view the attached document or if the mailing list doesn't allow here is a copy of

Re: combinations

- Original Message - From: "Jason Trebilcock" <[EMAIL PROTECTED]> To: "Perl Beginners" Sent: Monday, October 6, 2008 7:57:23 PM GMT -05:00 US/Canada Eastern Subject: RE: combinations -Original Message- From: Rob Dixon [mailto:[EMAIL PROTECTED] Sent: Monday, October 06, 2008 12:

Re: regex count

> I don't understand why you're /adding/ the match count $x to the hash value > each > time. Is that why you're getting values that you don't expect? > > If the first column of your output is supposed to be a count (for that source > address, connection, or port) then you should be adding one each

Re: regex count

> I don't see where you're printing $x to check. Jay, I probably was not and do not know how to :-). > Assuming you have actually checked $x, though, the important question > isn't whether $x == `grep -c regex /your/log/file`. > > The important question is whether $x == scalar keys %srca. > > If

RE: regex count

> Have a look at the sample data you posted and you will see where. > > > John I believe I found where the ']' needs to go but didn't see any extra ' ' space. The $x count seems off. As I see it every time a regex match is made then $x will increase one. The match numbers results are about 5x g

RE: Trying to modify Perl script

> printf() (as seen three lines down) has a format string and a list of > values corresponding to the % escapes in that string. Because you are > using a string literal you should use print() instead. > > > foreach my $i (sort { $quad{$b} <=> $quad{$a} } keys %quad) { > >if ($n++ >= $ntop) {

RE: regex count

> It appears that there is a space (' ') character at the end of the > pattern where there should be a ']' character. John, I'm missing where the closing bracket should go. while () { next unless /Sig:\s*(\d+)\s+Subsig:\s*(\d+)\s+Sev:\s*(\d+)([^\[]+)\[([\d\.]+):(\d+)\s*-> \s*([\d\.]+):(\d

RE: regex count

> I just copied over your code and noticed that the end of > your regular expression (the "/" character) runs across a > newline. Once I moved that back up to this: > > next unless > /Sig:\s*(\d+)\s+Subsig:\s*(\d+)\s+Sev:\s*(\d+)([^\[]+)\[([\d\.]+):(\d+) > \s*->\s*([\d\.]+):(\d+)/; > > $x is incr

Re: regex count

> Hello Stephen, > > I think the problem might be with your regular expression and not $x. > > If your regular expression does not match the current line then every line > will be skipped. > > What does the line that is being processed look like? > > Dave Here a

regex count

I'm looking to increase the count $x every time a match is made for the regex. Though I'm not having any luck nor am I receiving any errors. I'm missing something, it seems $x++ would increase $x since it starts at 0 by default? http://www.doulos.com/knowhow/perl/quick_start/ my ( %srca ); my $x;

RE: Trying to modify Perl script

> In your original post you presented *two* *separate* scripts and I > commented on both scripts, and now you are combining parts of both > scripts which is why you seem to be confused. > > Hint: The "next unless //;" was a replacement for the "if (//) {}" > block. John, originally I was trying t

RE: Trying to modify Perl script

[snip] > > #next unless /IPACCESSLOGP: list $acl denied ([tcpud]+) > ([0-9.]+)\([0-9]+\)\s*->\s*([0-9.]+)\(([0-9]+)\), ([0-9]+) \; > next unless /IPACCESSLOGP: list $acl denied ([tcpud]+) ([0-9.]+)\ ([0-9]+\)\s*->\s*([0-9.]+)\(([0-9]+)\), ([0-9]+) /; Thanks Ron that worked. What is the 'next' stat

RE: Trying to modify Perl script

John, I made many of the changes but what is the addition of the 'next' statement for? I tried to add the additional code but the script dies mentioning that it is not terminated correctly. If I comment out the next statement the script runs fine. #!/usr/bin/perl # use warnings; use strict; # S

Re: Trying to modify Perl script

$port{ sprintf '%3s port %-6s', $1, $4 } += $5; } } On Mon, Sep 22, 2008 at 2:14 AM, Raymond Wan <[EMAIL PROTECTED]> wrote: > > Hi Stephen, > > John is saying that you need to declare them, not initializing them. > Declaring them means that you're saying

Re: Trying to modify Perl script

> John is right. > You should always 'use strict' at the begin of the scripts. > Here you didn't declare the variables, so you got the errors. > You could declare them with: > my $x = ...; > my $foo = ...; > > For Perl's variable scope, see this: > http://perl.plover.com/FAQs/Namespaces.html > Jef

Re: Trying to modify Perl script

ast }; printf ("%6s:%s\n", $quad{$i},$i); } $n=0; printf "\nDestination Port Summary:\n"; foreach my $i ( sort { $port{$b} <=> $port{$a} } keys %port) { if ($n++ >= $ntop) { last }; printf ("%6s: %s\n", $port{$i},$i); } $n=0; printf "\nSource Ad

Understanding Perl script functionality

I am working on modifying a script that previously parsed Cisco ACL's and changing it to parse IPS information. Here is an example of the two log formats. Sep 19 15:44:29 172.16.2.1 59800: 3725router: Sep 19 19:44:39: %SEC-6- IPACCESSLOGP: list 104 denied udp 93.144.187.255(13157) -> 68.156.63.11

Trying to modify Perl script

I found a Perl script that parses Cisco ACL logging format and I would like to modify it to parse the IPS format that Cisco uses. I have made changes to the expression that picks up the Rule and the script still runs but there isn't any useful output. Any recommendations would be great. Here's wha

Re: Array indexing question

On Thursday 10 July 2008 10:33:31 Jay Savage wrote: > On Thu, Jul 10, 2008 at 8:48 AM, Stephen Kratzer <[EMAIL PROTECTED]> wrote: > > Anirban, > > > > The output of 'w' is delimited by whitespace, not necessarily a single > > space. Try passing the

Re: Array indexing question

by whitespace, not necessarily a single space. Try passing the pattern '\w+' to split. Something like this: #!/usr/bin/perl use strict; use warnings; open (LS, "w|") or die "can't open w: $!"; ; ; while () { print ((split)[4], "\n"); } Stephen Kratzer Network Engineer CTI Networks, Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Writing side of square

On Monday 05 May 2008 09:22:51 Rodrigo Tavares wrote: > Hello, > > I need create a square using a single number, but I don't know how to > create the sides. > > I have to create this: > > > * * > * * > > > My code is below : > > print "Enter with number:"; > chomp ($number = ); > > my @

Re: Debugger question

point which is activated only when the associated condition is true. To add a watchpoint, type 'w expr' in the debugger where expr is the expression which must be true in order for the watchpoint to be activated. In your case, type 'w $i == 10'. Stephen Kratzer Network Engineer

Re: Help in system function

On Thursday 17 January 2008 09:16:17 [EMAIL PROTECTED] wrote: > Hi All, > > > > I am executing following command in Perl script > > > > $vw=system("mk_view $view_name ETC"); > > if ($vw) > > { print "view created successfully\n"; > > } > > > > When I run this command, I am getting message "view c

Re: Why doesn't this work: trinary operator?

erator produces an assignable result, using assignments without parentheses will get you in trouble. For example, this: $a % 2 ? $a += 10 : $a += 2 Really means this: (($a % 2) ? ($a += 10) : $a) += 2 Rather than this: ($a % 2) ? ($a += 10) :

Re: open and close a filehandle

t a typo, but "$my file" should be "my $file". Most importantly, the program is more complicated than it needs to be. A more concise and readable example might be something like: #!/usr/bin/perl open SUBSET1, ">", "subset1" or die "Cannot ope

Re: code ref within a hash?

On Friday 19 October 2007 07:41:40 Beginner wrote: > Hi, > > In the script below I am trying my hand at using a code ref within a > hash. I want the key 'name' to contain a scalar value. It does but I > am not sure how to dereference it. > > Here is the output from the script at the moment. > > /da

Re: Problem in comparing two files using compare.pm

On Wednesday 29 August 2007 00:43:52 [EMAIL PROTECTED] wrote: > Hi, > > Please find below my code to compare 2 files > "source.txt,destination.txt" in folder "seek" > > #!perl > > use File::Compare; > > if(Compare("source.txt","destination.txt")==0) > { > print "They're equal\n"; >

Re: Accumulating Column Total From a CSV for a Common Key Value

On Monday 27 August 2007 12:36:02 country wrote: > s2pe,CTI Production ,8455,21.7% > sybprd01,OMS,5326,13.7% > pctip01,CTI,5098,13.1% > lxsadr54,CTI,1742,4.5% > pipmp01,SSG-IPM,1742,4.5% > maestro,SSG-RAC-Maestro ,1020,2.6% > f2pa,"DB2DARI  ""stored procedures"" prod",836,2.1% > pomgp01,SSG-PMD-Ome

Re: Get names of files ONLY using module Net::SFTP::Foreign

On Friday 24 August 2007 21:00:37 John W. Krahn wrote: > Stephen Kratzer wrote: > > On Friday 24 August 2007 08:57:26 Marian Bednar wrote: > >> I am a newbie in this forum and Perl too ;-) > >> > >> I am trying writing script transfering files using module >

Re: Get names of files ONLY using module Net::SFTP::Foreign

On Friday 24 August 2007 08:57:26 Marian Bednar wrote: > Hi all, > > > I am a newbie in this forum and Perl too ;-) > > I am trying writing script transfering files using module > Net::SFTP::Foreign. > > I need to retrieve from remote directory only names of files (not > directories, links,etc.). >

Re: installing DBD::mysql

On Wednesday 11 July 2007 07:31:30 Octavian Rasnita wrote: > Hi, > > I am trying to install DBD::mysql and I see that it tries to connect to the > server using the socket > /var/lib/mysql/mysql.sock > > This is because another version of MySQL was installed on the server, and I > have installed ano

Re: Command Splice()

On Tuesday 05 June 2007 09:38:51 Xu, Lizhe wrote: > Hi All, > =20 > The example given for splice function in the perldoc shows > sub aeq { > ... > my(@a)=3D splice (@_, 0, shift); > ... > } > I am confused about what the splice command does with the shift command = > and what the result of the c

Re: concatenation

one option: @mail= ("here","there","everywhere"); foreach $Mine (@mail) { $str1=$Mine . '@cbc.com'; print "$str1\n"; } [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] - sg Sayed, Irfan (Irfan) wrote: Hi All, I need to concatenate specific string for each element in the array. I tri

Re: another error handling question

On Friday 21 July 2006 12:24, Jerry DuVal wrote: > Any way to catch a die message? I want to catch a die message from a sub > routine, log it, and continue with a different sub routine. > > > > Thanks in advance, > > > > Jerry You could call the subroutine from an eval block and check the value of

Re: foreach loop

On Friday 21 July 2006 08:59, Sayed, Irfan (Irfan) wrote: > Hi, > > I am executing following code. > > foreach (@vob_repl_list) > > { > > print $_; > > `$MT chreplica -host puvob02 $_`; > > } > > but I am not getting the value of $_ in the command `$MT chreplica -host > puvob02 $_`; if I print the

Re: Event Timer in Perl

broutine; } } sub timer_test { print "Testing...\n" } You'd need to modify the timer subroutine in order to pass arguments to the routine executed by it. Stephen Kratzer CTI Networks, Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: New to Perl....

k and device monitoring tools, so there's really no reason for you to try to reinvent the wheel in two hours. Stephen Kratzer CTI Networks, Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://l

Re: DBI::AnyData problem

On Sunday 26 March 2006 18:58, Stephen Day wrote: > I have perl, v5.8.7 built for i686-linux running on gentoo. > I've installed the DBI::AnyData modules ( DBI, SQL::Statement, DBD::CSV, > AnyData, DBD::AnyData ) with perl -e 'use CPAN; install ' > > I have the

DBI::AnyData problem

find on google says do '$sth->finish()', Well I did and it didn't help. Any idea what is going wrong here? Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: threads

I'm not too familiar with threads, but I'll give it a go. You're still executing the download() sub seventy times one after another rather than concurrently. The async function will created one new thread for the block following it. You might try a for loop which creates a new thread at each it

Re: single step - debug mode

-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Bruce, What you want to use is `perl -d file.pl ` Steve Bowen, Bruce wrote: > I've read my Llama book and been out to goggle on this and while I've found > data that suggests it is possible to step thru a script file, I've yet to > figure out th

Saving Content of HTTP::Response Directly To Disk

I'm writing a download manager in Perl and using the LWP library of Perl modules. Is there any way I can save the contents of a HTTP::Response object directly to disk? I don't want particularly large requests to be cached into memory. Thanks, Stephen Le

Re: Problem with retrieving output from commands using net::telnet

Your regexes are probably not doing what you expect them to. You're using character classes, so it's waiting for the device to return a one character prompt that matches any one of the characters from the class. Try something like /password[: ]*$/i and something similar for other prompts. > All

Re: Help required about NET::TELNET

Mazhar, try: $telnet->waitfor(Match => '/login: $/i'); and $telnet->waitfor(Match => '/password: $/i'); Vishal, Right, you want to wait for the device to return something that will match the expression between the slashes. In that example, you'd be waiting for the device to return a login prom

Re: having problems with index of a date string

-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Kathy, I'm not sure exactly what problem you are having. When I ran your code below (after putting a semi-colon after `my $where`), I got the result of `where = 4` which is the index of the letter N in the $dateTime string. What is it you are exp

Re: help on converting pdf to text

First off, realise that a pdf isn't just a marked up text document. It's a wrapper for images and text, movies and many other formats. If you have a text pdf, then the text is a postscript object catalogued somewhere within the pdf. I've never done this in perl, but there are many commercial uti

Re: How to decode raw G3 data to plain txt file

his into a tiff file or convert to a bmp or similar not compressed format. I hope this helps, Stephen York J.Peng wrote: >Hi,list, > >I have a file which format is raw G3 data.I didn't see this file format >before.I want to get some info from this file.How can I decode these >c

Re: New Line Character(s)

only for linux, and I think macos is something else again, but I've never developed on a mac before so I can't confirm. This is a widely discussed topic on the internet and not difficult to find answers on. Stephen York Chris Devers wrote: On Wed, 26 Oct 2005, Timothy Johnso

Re: Redirecting STDERR

Opening the filehandle STDERR to a file will not persist beyond termination of the script, nor will it affect other programs running at the same time as the script. It affects only the running script. STDERR of the shell is different from that of perl. On Friday 07 October 2005 16:56, Timothy J

Re: STAT function; limit a log file.

Chances are that the file size will never equal exactly 500 bytes. You could use >= instead of eq, and it should work. Also, you don't have to close STDERR before reopening it, and in cases where you want to do numeric comparisons, use == instead of eq. Hope that helps a little. Also, it might

A simple perl script

Hi folks, I'm prepared to write a simple perl scripts as follow There are 25 commands executed in following sequence; export LFS=/mnt/lfs mount /dev/hda6 /mnt/lfs mkdir -p $LFS echo $LFS /mnt/lfs (output) /usr/sbin/chroot "$LFS" /tools/bin/env -i HOME=/root TERM="$TERM" PS1='\u:\w\$ ' PATH=/b

Re: Adding a library to @INC

-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Jay, You need to set the PERL5LIB path to include the directory of the DBI.pm module. Steve Jay Caviness wrote: > I have discovered that my Oracle installation has the DBI.pm module in > it. I really want to use this, but don't know how to have

Re: each

-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Gerard, I believe the answer you are looking for is this from `perldoc -f each`: When the hash is entirely read, a null array is returned in list context (which when assigned produces a false (0) value), and "undef" i

Re: Programming exercises

On Monday 18 April 2005 7:39 pm, Robert wrote: > "Stephen Day" <[EMAIL PROTECTED]> wrote in message > news:[EMAIL PROTECTED] > > > Hello, > > > > Does anyone know of a website that lists some programming exercises to > > help in > > lear

Programming exercises

Hello, Does anyone know of a website that lists some programming exercises to help in learning perl? I find it a lot easier to learning a language if I have exercises to apply it to. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Passing command line arguments

On Friday 15 April 2005 12:18 am, John W. Krahn wrote: > >>datefile.pl c:\program files\IBM\SQLLIB\DB2\db2diag.log > > > > You could paste the two arguments together in perl, add > > a space between them, and use that as the filename. > > What if there are two or more spaces? A TAB character? Th

Re: Passing command line arguments

On Wednesday 13 April 2005 11:12 pm, Bret Goodfellow wrote: > I have a script that is reading input from ARGV. The script is being > passed a file name as follows: > > datefile.pl c:\program files\IBM\SQLLIB\DB2\db2diag.log You could paste the two arguments together in perl, add a space between t

Re: Operation `eq': no method

On Wednesday 13 April 2005 6:30 pm, JupiterHost.Net wrote: > Anish Kumar K wrote: > > Hi All > > Hello, > > > The code gives strange error > > > > $subject = I get some value from the function > > > > if ($subject eq '' || !defined $subject) > > { > > Some operation > > } > > > > Operati

Re: glean distro version from /etc/*release

ase seems to be 'debian'. Stephen Day -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Reinit arrays for non destructive reuse

Hi, I've been trying to insert an array ref within a hash. I wrote a test program which was successful, but my real program requires the redefinition of the arrays to be done within an if block. When done in the if block it overwrites previous values. Whe done outside the if block a new array is cr

Re: Perl module question

..FAILED tests 365-366, 375-380, 391-392, 394-398, 400-402, 406, 426-427 Failed 21/437 tests, 95.19% okay (less 4 skipped tests: 412 okay, 94.28%) - snip - t/photo..ok 4/100 skipped: various reasons - snip - t/zzPhotook t/zzScrolled..

Re: Perl module question

trict; use Tk; (line 4) my $main = new MainWindow; $main->Label(-text => 'Hello World!' )->pack; $main->Button(-text => 'Quit', -command => sub{exit} )->pack; MainLoop Any advice. TIA B.R. Stephen --- Chris Devers <[EMAIL PROTECTED]

Re: Perl module question

bin/make test -- NOT OK Running make install make test had returned bad status, won't install without force I'm uncertain whether installation successful or fail. B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Perl module question

stall /Tkpm/' No printout. Please advise how to proceed. TIA B.R. Stephen Liu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: How to install "Mimi::Lite"

Hi Michael, Tks for your advice. Problem solve. As advised by Michael David the correct name should read; MIME:Lite It is case sensitive. B.R. Stephen --- Michael Glaesemann <[EMAIL PROTECTED]> wrote: > > On Nov 22, 2004, at 3:43 PM, Stephen Liu wrote: >

Re: How to install "Mimi::Lite"

, don't know what it is. Try the command i /mime::lite/ to find objects with matching identifiers. # perl -MCPAN -e 'install /mime::lite/' No printout B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

How to install "Mimi::Lite"

i /Mime::Lite/' syntax error at -e line 1, at EOF Execution of -e aborted due to compilation errors. TIA B.R. Stephen Liu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: Date calculations and daylight saving

rse' # perl MCPAN -e 'date::parse' Can't open perl script "MCPAN": No such file or directory # perl MCPAN -e 'Date::Parse' Can't open perl script "MCPAN": No such file or directory # perl -MCPAN -e 'Date::Parse' Thanks B.R. Stephen Li

Re: Printing features

Nov 20 12:17 . drwxr-xr-x 5 root root 4096 Nov 20 12:21 .. drwxr-xr-x 3 root root 4096 Nov 19 15:09 authors -rw-r--r-- 1 root root 145453 Nov 20 12:17 MIRRORED.BY drwxr-xr-x 2 root root 4096 Nov 19 15:09 modules If I made anything wrong, please advise. TIA B.R. Stephen --

Re: Printing features

es I don't understand > it today.) > > Note: Usually the default answer of (hitting) > [Enter] (the return > key) is all you need to do. > > As root - > cd > perl -MCPAN -e 'shell > cpan> o conf init Whether you suggest me re-run # perl -MCPAN -e '

Re: Printing features

Hi Chasecreek, <[EMAIL PROTECTED]> wrote: > You might also want to explore: > > perl -MCPAN -h Yes, the perl switches. Tks B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <htt

Re: Printing features

.8.3/Archive/Tar.pm Installing /usr/lib/perl5/site_perl/5.8.3/Archive/Tar/Constant.pm Installing /usr/lib/perl5/site_perl/5.8.3/Archive/Tar/File.pm Installing /usr/share/man/man3/Archive::Tar.3pm Installing /usr/share/man/man3/Archive::Tar::File.3pm Installing /usr/bin/ptar Writing /usr/lib/perl5/si

Re: Printing features

$ perl -MCPAN -e 'install Term::Screen"'; String found where operator expected at -e line 1, at end of line (Missing semicolon on previous line?) Can't find string terminator '"' anywhere before EOF at -e line 1. $ perl -MCPAN -e 'install Term::Scree

Re: Printing features

rm::Screen::Wizard". $ perldoc Term::ScreenColor No documentation found for "Term::ScreenColor". Please advise how to get them installed on my OS TIA B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Searching tecknical documentation

IIRC, Mozilla is not controlled with "Control Center" However I could not discover how to make change on "Preference" linking pdf to them. Please advise. TIA B.R. Stephen --- "Adam K. Wuellner" <[EMAIL PROTECTED]> wrote: > > On Nov 16, 2004, at 6:

Re: Searching tecknical documentation

resulted. I'm running FedoraCore2. Please advise what is the trick. TIA B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Searching tecknical documentation

Hi folks, Please advise where can I find similar free documentation on Internet, like; programming perl (O'reilly) Learning Perl (Llama) Programming Perl (Camel) Perl Cookbook (Ram) Google search brought me tons of links which a beginner finds it hard to sort out TIA B.R. Stephen Liu -

Re: Printing features

Hi WC -Sx- Jones, Further to my last posting I found out the cause. Each time after changing the colour on the script, I must start a new terminal to run $ perl colour.pl If on the same terminal "ON_YELLOW" and "UNDERLINE" will appear on following line. But I have no glue.

Re: Printing features

for me here. Furthermore ... print BOLD RED ON_YELLOW UNDERLINE "This line is RED"; print RESET, "This line is not.\n"; 1) Both on_yellow and underline continue on next line .. This line is not._ 2) Bold having not much effect. Is there 'Strong bo

Re: Printing features

t;; print "OWORDNO=Old Word No. NWORDNO=New Word No.\n"; -END- $ perl colour.pl Remark: OLINENO=Old Line No. NLINENO=New Line No. OWORDNO=Old Word No. NWORDNO=New Word No. But the second line is indented 1 character space. Please advise how to fix the problem. TIA B.R. Stephen -- To un

Re: Printing output to file

#x27;cannot open $typfile'; @typedoc=; close(INFO1); $~="STDOUT_TOP"; write(); $lno=0; $wno=0; foreach $i (@typedoc) { $incr=0; @typedoc1=split(/ /,$i); @basedoc1=split(/ /,$basedoc[$lno]); foreach $k (@typedoc1) { $var=$basedoc1[$incr];

Printing features

Hi folks, Please advise how to add 'bold', 'italic', 'colour', etc. such features to the printout. Can HTML syntax work on perl? I tried seeming not applicable. TIA B.R. Stephen Liu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e

Printing output to file

ate +%Y.%m.%d.%R); File="/tmp/satimis/comparison_${user}_${now}.txt"; so that the printout file will carry name of creator, date and time, etc. If possible please shed me some light to re-edit the script. TIA B.R. Stephen Liu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addi

Re: Which package generates "Algorithm/Diff.pm"

> $ perldoc CPAN.pm - snip - > should have worked, but the right way is to > just `quit`: > > cpan> quit > > Lockfile removed. > $ > > and you end up back at your OS shell prompt. No

Re: Which package generates "Algorithm/Diff.pm"

etc/sudoers `visudo` $VISUAL Vim: Warning: Output is not to a terminal I could not proceed further, no output found. B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Which package generates "Algorithm/Diff.pm"

tion (v1.7601) ReadLine support available (try 'install Bundle::CPAN') cpan> ? displaying help Whether 'look' there for seaching modules? What does "Terminal does not support AddHistory' indicate did not exit the command but popup cpan> Caught SIGINT What

Re: Which package generates "Algorithm/Diff.pm"

commands # %wheelALL=(ALL) ALL I'll uncomment the above line B.R. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Which package generates "Algorithm/Diff.pm"

llation info to /usr/lib/perl5/5.8.3/i386-linux-thread-multi/perllocal.pod /usr/bin/make install -- OK It worked for me. Did I make any mistake? Furthermore if I could not find the module from Internet, how to create it. As beginner on perl, I'm interested to learn. Please advise. TIA

Re: Which package generates "Algorithm/Diff.pm"

Hi Rene, Tks for your URL. I also found this link but could not resolve how to create the module. B.R. Stephen --- Rene Borchers <[EMAIL PROTECTED]> wrote: > > Hi, > > Searching www.cpan.org > > http://search.cpan.org/search?query=Algorithm%2FDiff&mode=all >

Which package generates "Algorithm/Diff.pm"

b/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at compare_s3_fifo.pl line 5. BEGIN failed--compilation aborted at compare_s3_fifo.pl line 5. <<<<< TIA B.R. Stephen Liu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EM

parsing a file

Hi all hope someone can help We have several jsp files that are not formatted correctly. I have a script that will escape a quote if it is not all ready escaped in a valid statement, but can not get it to work if the quote is already escaped inside a quoted statement. Any idea what to do with a

split function - from

hi there i'm trying to split a string from a line of text in a file - the split delimiter is a tab character '\t' - i then need to compare the 2 bits on either side of the tab to see if they are equal - if not eq - i write to tidy else i write to mess ? confused - this bit of code is giving me em

jump out of conditional loop

hi there what syntax do i use to jump out of a conditional loop for c/java it break; return; what is it in perl syntax> thx steve -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Only reading even lines in file -skipping odd ones!

hi there i am trying to write a perl script to tidy up any lines in a file that don't contain alphabetic characters or single instances of character. i've noticed that the even lines are being skipped when read in eg 0,2,4,6 - the script is run on window - any ideas? # Tidy Glossaries #!/usr/bin

Make file jobs

this our of the way before i learn pearl .. Stephen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: Updating an array within a hash

> Hi Everybdy, > I am stuck in a problem for which I need your help. My > problem spins around adding an element in an array > within a hash. > I have a hash declared as $hash{"1"[EMAIL PROTECTED]; now I > want to add an element to it within a loop. How would > I do this? I would be highly gratefu

RE: 1 doubt.

> Name "main::FH" used only once: possible typo at t.pl line 6. It's because it's used only once ;o) . If you just declare something (variable, filehandle etc.) but don't use it, something's probably wrong with your code (such as a typo). If you try reading or writing using that filehandle the e

  1   2   3   >