perl 5.8 + GD problem

Hello All, I am trying to use squid-graph tool. http://squid-graph.securlogic.com/files/ Execution of perl script makes, # ./squid-graph --output-dir=/tmp/test/ < /usr/local/squid25s7/var/logs/access.log WARNING: Are you sure you want to output your files to "/tmp/test"? Continuing

Re: perl 5.8 + GD problem

> [Wed Nov 24 11:00:28 2004] Plotting graph of TCP accesses. > /usr/bin/perl: error while loading shared libraries: > /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/auto/GD/GD.so: > undefined symbol: gdFontGetSmall > > # nm /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi/auto/GD/G

string change problem

print "Old = $org_name\n"; print "New = $name\n"; But i can not get a change on the change 1 and 2 lines. Regards, Muthukumar. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.o

Re: string change problem

Hello All, I am really very happy to receive the detailful response from you all.It is great. Thanks for all helping me to start my knowledge on PERL programming. Thanks, Muthukumar. - Original Message - From: "Charles K. Clarkson" <[EMAIL PROTECTED]>

file operations

yahoo.com I want to change the above line as http://perl.com/corner_4.gif"; width="10" height="10"> yahoo domain must be changed to perl.Where the keyword is yahoo domain. Using the shell scipt I have done it easily. how to do it in perl.. cat $filenam

directory operations

@file_list = foreach $file (@file_list){ file loop . close(file-handle); } I have checked like this.. i did not get any response at all.. No files are stored in the array too. what is wrong with this.. and how to accomplish this. -- Regards, Muthukumar. -- To unsubscribe, e-mail: [EMAIL

directory and file operations

y $path=; chdir($path); my $file=''; my @files=<*.txt>; foreach $file (@files){ { inner loop for pattern matchinh }; Thanks for the help. Muthukumar. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.

How to find out what are modules included in perl

Hi, How to find out the modules included in perl? Thanks, -Muthu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: FAQ

Can you try with backtick or qx[ ] ? my $z = `assign.f $x $y`; hth. > Can't exec "assign.f": Permission denied at assign > line 10, line 2. > Output of the two numbers is: > -1 --Muthu -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: perl on HP-UX

It says strict.pm file is not available to include in perl coding. You search it in command line as, # find / -name "strict.pm" or in perl code with find module. -Muthu On 7/11/05, Ken Killer <[EMAIL PROTECTED]> wrote: > perl on HP-UX doesn't include the strict.pm into the core modules list?

tocTab.js file is missing

I have downloaded perl with version of ActivePerl-5.8.7.813-MSWin32-x86-148120. I have started perl/html/index.html however it is prompting for error that "tocTab.js" file is missing. Where I can get this file. Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

Re: use of backslash..

> if (\$base2\) > > is used>> the backslashes are used for what? for instance than why not we > use the same for an array variable: > > foreach (@dna) > > Does it have to do with if(0) or if (1) rather than literally taking the > value .. \ is used to speicific meaning to few characters like |

Re: Emptying a log file....

> Is there any way in perl to effectively clear the contents of an > ***existing*** file (making the file empty) ? I have a log file that > I'd like to empty out after it reaches a certain maximum file size. You can to check the file size and empty the file easily as, Shell actions: a) > b) c

Re: perl one liiner

> perl -ne 's/([a-z]\d+)/$1/g;' > > It doesn't work, but if I use it in a script it works. > > I want to know where am I going wrong. Also I want to > know how to not get rid of digits at the beginning of > a line but the ones that follow some chars > > If input is like the one below, > > This

Re: Fwd: perl one liiner

> > This should do what you want: > > perl -pe's/(?<=[[:alpha:]])\d+//g' As per required ouput your one-line is showing to me as, # perl -pe 's/(?<=[[:alpha:]])\d+//g' test.log This23 is a 45 good thing # try this one. # perl -pe 's/\d+//g if /^\D+/;' test.log This is a 45 good thing -Muthu

Re: regex remove of strings etc

> I need to remove the string "room" (notice the check for a space too) and > also to check for spaces in the beginnig and then maybe at the end > of the total string. > > $p110rm01 =~ s/(\sroom|^\s*|\s*$)//igo; > It is correct. You can try as, # echo " hi this is a room ok" | perl -ne 'if (

Re: regex remove of strings etc

> It is correct. You can try as, > > # echo " hi this is a room ok" | perl -ne 'if ( /\s*.*\sroom.*\s*/ ) { > s/ room//;}print;' > # hi this is a ok oops. I hope pattern matching is not needed to your requirement. Your try is correct. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional c

Re: regex remove of strings etc

Try with your input, # echo " hi this is a room ok " | perl -pe 's/(\sroom|^\s*|\s*$)//g' hi this is a ok# hth. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: open file for read and append

> > I have a script where I need to open a file, read from it > > sequentially, > > and append items to the file as I go along, continuing to read these > > items as I go. But seems I can't open the file for read and append at > > the same time. Does anyone have any ideas? > Is it possible to ope

Re: how to run perl class?

On 8/24/05, praba har <[EMAIL PROTECTED]> wrote: > Dear All, > > I try to run a sampleclass example program > in perl. But I received error. How to avoid it? > The code is below: > > Package Person; > > sub new > { > my($type) = $_[0]; > my($self) = {}; > $self->{'name'} = $

Re: Split with backslashes?

my $cd = $arguments; @dirs = split(/\//,$cd); #Split $cd when there occurs a backslash Negate with \ hth. On 10/5/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > > Hi there! > > I would like to split up a string like this > > my $cd = $arguments; > @dirs = split(///,$cd); #Split $cd when the

Re: Extracting Upper case letter from a variable

You have to try as, $var=~operation; Example: # perl -e '$var="HIbyeok";$var=~s/HI/OK/;printf $var . "\n";' OKbyeok -Muthu On 10/5/05, BERTHOLD Jean <[EMAIL PROTECTED]> wrote: > > Hello, > > I try to replace my old shells scripts with perl ... > > Can you tell me how to extract a substring in

Re: Extracting Upper case letter from a variable

( $ORACLE_SID ) = ( $basename =~ /[A-Z]*/ ) ; <-- I tried that but that won't work ... ( $ORACLE_SID ) =s/[^A-Z]//g; -Muthu On 10/5/05, BERTHOLD Jean <[EMAIL PROTECTED]> wrote: > > Hello Muthukumar, > My problem is that I would like to extract a part of a variable (which

Re: Matching a Scalar Variable

On 11/29/05, Mazhar <[EMAIL PROTECTED]> wrote: > > Hi Folks, > I have a requirement where in i have to read a file and then > store > the line by line items into a scalar variable. And then ihave ti match the > same. i am providing you a sample code. Just help how can i match a string > wh

Re: Matching a Scalar Variable

On 11/29/05, Mazhar <[EMAIL PROTECTED]> wrote: > > Sorry i am passing the OPEN as > Open (FILE1," Open (FILE," > Still the string is ot matching. Help me please Use like this: open FD, "< file1"; open FD1, "< file2"; while () { $line1=chomp($_); # chomp() Needed while () { $line =

Re: Matching a Scalar Variable

On 11/29/05, Charles K. Clarkson <[EMAIL PROTECTED]> wrote: > > Muthukumar <mailto:[EMAIL PROTECTED]> wrote: > > >No, I don't think so. > >Let's test it. We'll assume that has 3 lines in it. > On the first pass of the outer loop we load

Re: ^M

>> I have to process some files with more than 10 lines. At the end of each line is the sign ^M. How could I remove it. $ perl -i .bak -npe 's/\r\n/\n/g' -- Muthukumar | Mail: [EMAIL PROTECTED] | www: http://geocities.com/kmuthu_gct/

Pdf to Excel

I am trying to convert the tables in pdf to Excel. I am using CAM::Pdf module for reading the text from Pdf. please suggest me anyone for other way for converting PDF to Excel. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http