Re: configuring Net::SMTP

2023-07-15 Thread perl
ot; . $smtp->message(); >> $smtp->data() or confess "SMTP data: " . >> $smtp->message(); >> $smtp->datasend($theBody) or confess "SMTP datasend: " . >> $smtp->message(); >> $smtp->dataend()

Re: configuring Net::SMTP

2023-07-08 Thread perl
ne or both likely arrived at >> webmas...@hostgator.com <mailto:webmas...@hostgator.com>.) >> >> I am not trained in computer tech; I’m just a 78 year old high school >> teacher who bought a few books on perl, so I don’t really understand >> how to fill in the many

Re: hosting suggestion?

2023-07-03 Thread perl
e, but pretty good. > > > > Mike > > > On 7/1/23 13:49, Rick T wrote: >> My web hosting company is closing business, and I less than two weeks to >> move my five sites to another host. All of these use perl. If you have >> experience with a host that suppo

Re: Fwd: Win32::OLE merge rtf files - table structure missing

2022-06-15 Thread perl kamal
could not be seen in advanced stage of pregnancy and due to > poor or inadequate acoustic window. Sometimes not all four limbs can be > clearly visualized due fetal position and acoustic window. This has been > clearly explained to the patient. > > > > So what is the problem? It sound

Re: Win32::OLE merge rtf files - table structure missing

2022-06-14 Thread perl kamal
4.20%* *EFW-GP(AUA)(Hadlock): 32.28%* *Doppler Measurements* *FHR: 150Bpm* *Ultrasound Image* *Comments: * *Signature(seal): * *Date Signed: * On Tue, Jun 14, 2022 at 10:56 AM perl kamal wrote: > Hi, Greetings!!! > I am trying to process an rtf file , get the cont

Fwd: Win32::OLE merge rtf files - table structure missing

2022-06-14 Thread perl kamal
@mflan.com I have attached a file to see if the list accepts attachments. Mike On 6/14/22 00:26, perl kamal wrote: > Hi, Greetings!!! > I am trying to process an rtf file , get the content from a > paragraph,construct a table with the processed data and update it at > the "Co

Win32::OLE merge rtf files - table structure missing

2022-06-13 Thread perl kamal
nts/suggestions will be much appreciated.Thanks. #! C:\Strawberry\perl\bin use strict; use Win32::OLE; use Win32::OLE::Const; use File::Spec::Functions 'canonpath'; #use Data::Dumper; use File::Basename; use Cwd 'abs_path'; use utf8; use Encode; Win32::OLE->Option (CP =>

Re: data structure for Template Toolkit

2018-10-30 Thread perl
ty reading logs to figure out > what is wrong, and what to do about it, but for well maintained > packages in a Unix-like environment that is rare in my > experience.. > > You can read about cpanm and how to install it from the Git repo > readme: > https://github.com/miyagawa/cpanm

Re: data structure for Template Toolkit

2018-10-30 Thread perl
tunately I’m beginning to get the hang of Template Toolkit, and >> I may need it for more complex situations that come up. Switching from >> HTML::template this year was a challenge, and I had to rewrite a lot of my >> perl to go with it. I know that most perl people are good at u

Re: data structure for Template Toolkit

2018-10-29 Thread perl
); > > If only there were 'strict' and 'warnings' for Template! :-) > > Andrew > > On Sun, Oct 28, 2018 at 8:52 PM Rick T <mailto:p...@reason.net>> wrote: > As a novice in perl I realize that it’s a bit presumptuous for me to attempt > references and

Re: reading form values from POST

2018-09-03 Thread perl
ng to wean myself from CGI.pm, an easy task for most of you, but I >> am a beginner. The code below works, but that does not mean it always will or >> that it cannot be improved. I found the main part of this in CGI Programming >> with Perl, which is 18 years old, and I’ve given up hop

Re: slurp error

2018-07-29 Thread perl
fically didn't want one. Smacks of cargo cult but I'd never > argue with him. > > On Fri, Jul 27, 2018 at 1:37 PM, Rick T <mailto:p...@reason.net>> wrote: > I tried to implement some advice about slurping that I read on this mailing > list (using local) but canno

Re: interpolation without double quotes

2018-07-05 Thread perl
Many thanks to Shlomi and Uri: as always, you’ve greatly boosted my understanding of Perl! — Rick > On Jul 4, 2018, at 9:35 AM, Shlomi Fish wrote: > > Hi Rick, > > On Wed, 4 Jul 2018 09:16:19 -0500 > Rick T wrote: > >> The following line works, even though I

Re: difficulty with matching

2018-06-02 Thread perl
ent_id}; # Impose lower case >>$student_id =~ s/\s//xmsg; # Remove whitespace >> >>$student_id =~ >>m{ >>\A([a-z]+) # match and capture leading alphabetics >>(-) # hyphen to separate surname from student numbe

CPAN will shutdown

2018-05-22 Thread Practical Perl
*search.cpan.org <http://search.cpan.org> is shutting down* For details read Perl NOC <https://log.perl.org/2018/05/goodbye-search-dot-cpan-dot-org.html>. After June 25th this page will redirect to MetaCPAN.org <http://search.mcpan.org/> So does as well as Perl?

Re: local and auto flush

2018-05-19 Thread perl
Many thanks for the very helpful comments from Andrew and Andy. For the first time, I have a clear idea of what local and auto flushing are doing for me. I know I’d get educated here! -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.or

Filehandle within foreach loop

2017-07-12 Thread perl kamal
Hello All, I would like to read multiple files and process them.But we could read the first file alone and the rest are skipped from the while loop. Please correct me where am i missing the logic.Thanks. use strict; use warnings; my @files=qw(Alpha.txt Beta.txt Gama.txt); foreach my $file (@file

Re: port details from the process id

2016-01-04 Thread perl kamal
Thanks for your valuable comments. On Thu, Dec 24, 2015 at 2:09 AM, Shlomi Fish wrote: > Hi perl kamal, > > On Wed, 23 Dec 2015 19:58:04 +0530 > perl kamal wrote: > > > Hi, > > I am trying to retrieve the port details by the process id as like below, > > but i

port details from the process id

2015-12-23 Thread perl kamal
Hi, I am trying to retrieve the port details by the process id as like below, but it fails. my $port = `ss -l -p -n | grep $pid| grep -v grep 2>&1`; When I manually issue the command with the pid, it yields the output. Will you please suggest/correct me.Thanks.

Re: Hash in file Formats

2015-12-16 Thread perl kamal
Please find the attachment. On Thu, Dec 17, 2015 at 1:26 AM, Raj Barath wrote: > Can you share a simple of JSON file and from that let us know what you > want to capture. > > On Wed, Dec 16, 2015, 3:41 PM perl kamal wrote: > >> ++Subject & Thanks. >> >>

Re: Hash in file Formats

2015-12-16 Thread perl kamal
++Subject & Thanks. On Thu, Dec 17, 2015 at 1:08 AM, perl kamal wrote: > Hi, > > I am trying to read a json output file,capture the required information, > storing them in an array and format the output in a file. > Please review my code and suggest me is there any way to c

Re: XML Simple + parsing inner loop elements + help

2015-12-08 Thread perl kamal
Hi, Thanks you for your valuable comments,let me try the Twig module. On 12/8/15, Kent Fredric wrote: > On 8 December 2015 at 19:25, perl kamal wrote: >> I am trying to parse the inner loop elements of the attached input xml >> elements. >> The below code doesn'

XML Simple + parsing inner loop elements + help

2015-12-07 Thread perl kamal
use strict; use XML::Simple; use Data::Dumper; die "Usage: perl $0 path output_file\n" unless @ARGV == 2; my $path = shift; my $output_file = shift; my ($name,$url,$value,$password,$user,$prop_name,$string); opendir (DIR, "$path") or die "Can't open the d

finding head and tail in data structure

2013-01-10 Thread budi perl
Hi, I have this following hash: #!/usr/bin/perl # use strict; use Data::Dumper; my %MYROUTES = ( "ROUTE-252" => { # src => dest 427 => "ABEP", "ABEP" => 441, 441 => 427, 427 => 444, 444 => &qu

Tutorial for a menu driven perl script

2012-12-20 Thread newbie01 perl
Hi, Does anyone know of any great source/link for tutorials on menu driven Perl? Thanks in advance.

Re: Proposed correction

2012-09-17 Thread jmrhide-perl
} #ADDED LINE } Does that look reasonable? Other attempts to send the script garbage would just cause it to tell you your answer was wrong, I think. John M Rathbun MD ____ From: Jim Gibson To: Perl Beginners Sent: Mon, September 17, 2012 10:18:1

Re: Proposed correction

2012-09-17 Thread jmrhide-perl
So assuming I write for my $loopiter (0 .. $loopmax) { #1 if ($loopiter >= ($loopmax - 1)) { die "Loop number $loopnum has iterated $loopiter times" } $termnum[0] = int( rand($defnum) ); last unless ( $termnum[0] == $lastnum ); } $loo

Proposed correction

2012-09-16 Thread jmrhide-perl
for (my $loopiter = 0; $loopiter < $loopmax; $loopiter++) { #1 if ($loopiter >= ($loopmax - 1)) { die "Loop number $loopnum has iterated $loopiter times" } $termnum[0] = int( rand($defnum) ); last unless ( $termnum[0] == $lastnum ); }

Re: Fw: Proposed correction for my long script

2012-09-16 Thread jmrhide-perl
; make any obvious logical or grammatical errors in the snippets of code below? > to be nice, there are too many logical errors to even count. somehow you got this working but redoing it to reasonable code will be a major project. > #!/usr/local/bin/perl > > use warnings; > use

Fw: Proposed correction for my long script

2012-09-16 Thread jmrhide-perl
n the snippets of code below? John M Rathbun MD - Forwarded Message From: "jmrhide-p...@yahoo.com" To: beginners@perl.org Sent: Sun, September 16, 2012 3:46:47 PM Subject: Proposed correction for my long script OK, here's my amateurish attempt at a correction: #!/usr

Proposed correction for my long script

2012-09-16 Thread jmrhide-perl
OK, here's my amateurish attempt at a correction: #!/usr/local/bin/perl use warnings; use strict; use diagnostics; use CGI; my $cgi = new CGI; use Mail::Sendmail; use CGI::carp qw(set_die_handler); BEGIN { sub handle_errors { my $msg = shift; sendmail( From

Re: File/string formatter script?

2012-09-16 Thread newbie01 perl
sample code below is a big help. Thanks again. On Sun, Sep 16, 2012 at 12:28 AM, Rob Dixon wrote: > On 15/09/2012 02:52, newbie01 perl wrote: > > Hi all, > > > > I have a config file that contains some text as below: > > > > server01:/u01/app/oracle/admin

Re: My long script

2012-09-15 Thread jmrhide-perl
t_die_handler(\&handle_errors); 14. } It would be WONDERFUL to get an email every time it glitched! Does anybody have a sub written for that? John M Rathbun MD From: Jim Gibson To: Perl Beginners Sent: Sat, September 15, 2012 9:00:35

My Long Script (2)

2012-09-15 Thread jmrhide-perl
# PRINT RESPONSE: $c_topic = $cgi->cookie( -name=> 'topic', -value => $topic, -expires => '+1d', -path=> '/' ); $c_score = $cgi->cookie( -name=> 'score', -value => $score, -expires => '+1d', -path

My Long Script (1)

2012-09-15 Thread jmrhide-perl
#!/usr/local/bin/perl # use warnings; # use strict; # use diagnostics; use CGI; my $cgi = new CGI; my ( $topic, $score, $lastnum, $answer, $anum, $bnum, $cnum, $dnum, $enum,$smarts, $playlevel, $c_topic, $c_smarts, $c_playlevel, $c_score

My long script

2012-09-15 Thread jmrhide-perl
As requested, I ran perltidy on my script to see if I could make it easier for somebody else to read. Perhaps a little explanation of how it works would also be helpful: Tutorial.cgi is triggered by a user who wishes to enlarge his/her vocabulary of technical terms in a certain field. The

File/string formatter script?

2012-09-14 Thread newbie01 perl
already have a script that does what am wanting to do? At the moment, am doing it manually reading one line at a time and using awk and printf using the max string of each column as the basis for the max length of the column for each field. Am wanting to be able to use Perl instead. Any feedback much

My script is...

2012-09-14 Thread jmrhide-perl
I appreciate the helpful input. It appears from my server stats that the script in question has only run a couple of times a day on average, so that's fewer than a thousand instances in the past year. I ran LOTS of tests of the script, none of which hung or produced unexpected output. If the

Clarification re Perl Script out of control

2012-09-13 Thread jmrhide-perl
all error trapping enabled, no error appears on the server log. Where I think we need to focus is, assuming the script runs to its end every time, why doesn't it release its hold on the server resources? My hosting service runs Apache version 2.2.22. I can't tell what version of Per

My script is OUT OF CONTROL!

2012-09-13 Thread jmrhide-perl
thing: #!/usr/local/bin/perl # use warnings; # use strict; # use diagnostics; use CGI; my $cgi=new CGI; my ($topic, $score, $lastnum, $answer, $anum, $bnum, $cnum, $dnum, $enum, $smarts, $playlevel, $c_topic, $c_smarts, $c_play

click on image in win32::IeAutomation

2012-07-31 Thread Perl Pra
I am using Win32::IE Automation to automate login of a page. I could provide username and password in the respectivve fields,But the login is a image on which I need to click. Below is the page source for that login image . So to click on the image I am doing the following. I used $ie->getIm

Script to test connecting to Oracle DBs

2012-07-27 Thread newbie01 perl
Hi all, I am looking for a Perl script or something similar that I can use to test connection from a client PC to several databases on a server. Does anyone know of any such script lying around somewhere :(- Currently, am testing connection from a client PC to an Oracle DB using Oracle&#

Argument isn't numeric

2012-06-10 Thread jmrhide-perl
Hello and thanks for volunteering your time! I'm returning to PERL after about a year and am struggling to remaster some syntax: #!/usr/local/bin/perl use warnings; use strict; use diagnostics; # Converts current directory to a list of links my @dir; my $name; my $

problem install XML::LibXSLT on RHEL

2012-06-03 Thread Perl Pra
Hi Gurus, I have written a program that uses XML::LibXSLT. When i Run the program it complain about not findind the XML/LibXSLT @INC. I have installed perl-libxml and perl-lib-xslt successfully .Still my perl progam complains about XML::LibXSLT not installed. 1) * when I run Perl MakeFile.PL

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-30 Thread newbie01 perl
84 22702700 68% /u01 /dev/sda1 101086 28173 67694 30% /boot tmpfs 49422824237564 49185260 1% /dev/shm dev0ns100:/vol/vol_ns953_snap/rac_shared 125829120 32990784 92838336 27% /nas_mnt/rac_shared /dev/asm/akl1od200-335

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-21 Thread newbie01 perl
Hi all, Am trying to write/convert a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am using system("df -k > /tmp/df_tmp.00"); To re-direct the df output. Am using df -k because some of the Solaris and HP servers doe

Re: Help with Getopt::Std

2011-10-21 Thread newbie01 perl
Hi Brandon, Thanks for your response. Getopt::Std seems to be the simplest one, so am tryiing that one out first :-) Am just trying to port 1:1. Quite painful trying to figure out how to get awk-like behavior in Perl especially when trying to do some calculation on some specific fields. I&#x

Help with Getopt::Std

2011-10-20 Thread newbie01 perl
Hi all, Playing around with Getopt::Std as am trying to convert a UNIX Korn Shell Script to a Perl script. Is it possible to check for what are the values for opterr, optarg, optind? How? :(- I've been Googling for quite sometime now and can't find an example of Perl scripts that

Re: Strawberry Perl Installing CPAN modules

2011-09-27 Thread Perl developer
Shlomi, I installed Terdata software packages like cli, teragss, and tdicu. I edited windows hosts file. Now I got the following error. dmake.exe: makefile: line 871: Error: -- Missing targets or attributes in rule The following perl script is used to connect to SQL server database using

Re: Strawberry Perl Installing CPAN modules

2011-09-21 Thread Perl developer
Thanks for the reply. How to install the headers? On Wed, Sep 21, 2011 at 11:23 AM, Shlomi Fish wrote: > On Wed, 21 Sep 2011 09:31:01 -0400 > Perl developer wrote: > > > All, > > I need help regarding install of CPAN modules in strawberry perl. > > >

Re: Strawberry Perl Installing CPAN modules

2011-09-21 Thread Perl developer
Paul, I didn't understand. Please elaborate. I have sent email to dbi mailing lists. I didn't get any reply. Did you added CPAN modules into active perl or strawberry perl? Have you built perl from source code on Windows? On Wed, Sep 21, 2011 at 9:42 AM, Paul Johnson wrote: > O

Strawberry Perl Installing CPAN modules

2011-09-21 Thread Perl developer
All, I need help regarding install of CPAN modules in strawberry perl. I have a question about Perl connectivity to Teradata. Is it the correct email address? I have been using Active Perl 5.12 on Windows xp since one year. I tried installing a perl module from CPAN and I got errors while

Output formatting help

2011-08-01 Thread newbie01 perl
e padded with spaces - Then print out each line left-justified using Perl print formatting Not sure if this is the best way to format the output to the one that I want to but can't think of any way of doing it. Preferably, would want to be able to show the df output in GB/MB as well. That means I

Re: Any suggestion on how to "improve" this code? Malformed braces

2011-07-31 Thread newbie01 perl
Hi John, For checking a 10,+ lines, your code cut down the processing time from 30 seconds to a mere 5 seconds, amazing. Thanks a lot. On Thu, Jul 28, 2011 at 10:04 PM, John W. Krahn wrote: > newbie01 perl wrote: > >> Hi all, >> > > Hello, > > > I&#x

bracket checker - http://pastebin.com/d8GNL0kx - Any clue on the error?

2011-07-28 Thread newbie01 perl
}\]..»?>??]|$) | (?)(?&matched)([\)\}\]..»?>»?]|$) | (?)(?&matched)([\)\}\]..»?>»?]|$) | at ./123.pl line 34. Code below or can be copied from http://pastebin.com/d8GNL0kx #!/usr/bin/perl use strict; use utf8; binmode STDOUT,":utf8"; use File::Find; my $checkre = qr/(?| (

Any suggestion on how to "improve" this code? Malformed braces

2011-07-27 Thread newbie01 perl
Hi all, I've written a Perl script below that check and report for malformed braces. I have a UNIX ksh version and it took a couple of minutes to run on a 1+ lines. With the Perl version it only took about 20 seconds so I decided to do it the Perl way. Besides I need a similar thin

Checking a config file for malformed entries - Oracle TNSNAMES.ORA file - having problems, please help

2011-07-21 Thread newbie01 perl
check for malformed stuff. I believe Perl is very good at doing this kind of stuff. I've managed to find some command line options from Google and trying that out. For the meantime, hopefully someone from this group have had this same problem in the fix and has a script that checks for malfo

Permission bit translator?

2011-03-10 Thread newbie01 perl
Hi, Does anyone know of any permission bit "translator"? One that can translate the permission bit from its textual value to its octal value and vice versa. It is alright if it is always just rwx but on a lot of occasions nowadays, getting a lots of s, S, t, etc. -rwxrwxrwx 1 oracle dba

Date arithmetic advise/improvement - using stat ... calling the Perl script from a UNIX script

2011-03-10 Thread newbie01 perl
Hi all, Just want to know what improvement can be done with the code below if any. I am sure a lot of improvement/changes is required. I will be calling this script from a UNIX script, i.e.timediff=`timediff.pl $file`, so $file will be passed to the Perl script. It's probably a good idea to

Scan/Parse directory for "newest" file, print file timestamp and compute date/time difference - Some advice please

2011-03-02 Thread newbie01 perl
Hi all, Am wanting to get some advise on how to write this Perl script. I have a backup directory that I have to check for the existence of file/s and if the latest file that exist there is 2 days old, that means I have a problem and had to send an email notification. To illustrate if, for

Lighttpd + FCGI = Socket not closing?

2011-01-21 Thread perl-list
Hi there, I'm using the FCGI module (version 0.67) and a lighttpd to create an imageserver. But currently I have the problem that if I shutdown the lighttpd server, the perl processes are still there with an open file descriptor to the socket. There are not a child process anymore an

can any one tell why isn't this working on HTML::Tree ??

2011-01-01 Thread perl
use strict; use warnings; use YAML; use HTML::Tree; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $response = $ua->get('http://www.raaga.com/channels/hindi/moviedetail.asp?mid=H002927'); my $content1 = $response->content; my $tree = HTML::Tree->new(); $tree->parse($content1); my $article = $

Using open and pipe and regex - need some guidance please

2010-09-05 Thread newbie01 perl
Hi, Do the following set of codes does the same thing? FYI, am more interested on whether I can use CODE 03 to pipe/re-direct output from the OS commands, i.e. ps, df etc. Will using | works on Windows as well? Am very new to Perl and has mostly done UNIX shell scripting. Am wanting to write

perl DBI problem while installing bugzilla

2010-08-11 Thread perl pra
> Hi All, > > I am having a problem while isntalling Bugzilla , Checksetup.pl throws > errors and exits.Below is the detail. > > when I run checksetup.pl in bugzilla folder I get the following error, > Though I have installed latest DBD-mysql which is available in CPAN. > > ERROR

problem while installing bugzilla

2010-08-11 Thread perl pra
Hi All, I am having a problem while isntalling Bugzilla , Checksetup.pl throws errors and exits.Below is the detail. when I run checksetup.pl in bugzilla folder I get the following error, Though I have installed latest DBD-mysql which is available in CPAN. ERROR ---

Re: cgi sqlite error not able to write data in database

2010-07-24 Thread perl
On 07/24/2010 10:48 AM, Owen wrote: > >> On 07/24/2010 08:53 AM, Owen wrote: >> >>> >>>> hi, >>>> it got some error while adding data into sqlite through Perl script >>>> on >>>> Apache ... script can

Re: cgi sqlite error not able to write data in database

2010-07-23 Thread perl
On 07/24/2010 08:53 AM, Owen wrote: > >> hi, >> it got some error while adding data into sqlite through Perl script on >> Apache ... script can able to read the file but not able to write .. I >> have set the permissions of sqlite file to 666 .. >> >> wh

cgi sqlite error not able to write data in database

2010-07-23 Thread perl
hi, it got some error while adding data into sqlite through Perl script on Apache ... script can able to read the file but not able to write .. I have set the permissions of sqlite file to 666 .. when i ran the script from local user its working fine .. its able to write the data into db when i

Re: Some explanation please -- iterating thru command line arguments

2010-07-23 Thread newbie01 perl
Hi Brandon, Thanks ... using the cat and pipe looks "cleaner" ... I will try that one ... thanks On Fri, Jul 23, 2010 at 4:53 AM, Brandon McCaig wrote: > On Wed, Jul 21, 2010 at 1:17 PM, newbie01 perl > wrote: > > Does $_ contains the following values on each iteration

Some explanation please -- iterating thru command line arguments

2010-07-21 Thread newbie01 perl
Hi all especially Perl teachers if anyone is ... :-) I just want to know if someone can provide some explanation on how does the argument iterator sub-routine below work. The Perl script is called from a UNIX Korn script as below: mail_smtp.pl -r ${MAILFROM} -s "$subject_line TEST

Perl stat script ... ???

2010-07-18 Thread newbie01 perl
Hi all, Does anyone know if someone had written a Perl stat script that mimics the Linux' stat command? I want to be able to use the stat command on Solaris, unfortunately, I just found out that that command is not available on Solaris and HP-UX so am thinking a Perl script should be the w

how to get XML::LibXML perfect xpath query ?

2010-06-12 Thread perl
i have tried to use the LibXML modules to xpath a document but its getting complicated .. i have seen this example over forum here . use XML::LibXML ; use strict; use warnings; { my $xml = <<'XML'; Hello world! XML my $parser = XML::LibXML->new; my $doc

XML::LibXML::Reader source specification error

2010-06-12 Thread perl
I tried to use LibXML .. when i never to the correct libXML read file ... when i tried to use the LWP download which is an XML .. how to use it please help me ... /use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $response = $ua->get("http://www.perlmonks.org/?displaytype=xml;node_id=3989";);

Re: Remove old core dump directories in Oracle ... ???

2010-06-07 Thread newbie01 perl
Hi Uri, Oops ... sorry, I think I've explained it wrong ... I mean, supposedly, the script is to scan the sub-directories of $ARGV[0] but not include $ARGV[0] in the list so I've modified the pseudo-code hack that you provided to do just that ...

Re: Remove old core dump directories in Oracle ... ???

2010-06-06 Thread newbie01 perl
g the @ARGV ... Your hacked pseudo-code works fine and does what am looking for ... Thanks ... On Mon, Jun 7, 2010 at 6:45 PM, Uri Guttman wrote: > >>>>> "np" == newbie01 perl writes: > > np> Hi Uri, > uri> first off please edit the quote

Re: Remove old core dump directories in Oracle ... ???

2010-06-06 Thread newbie01 perl
loop ... The script is to search the core dump directory but exclude that directory, kinda like doing a grep for ^/u01/oradump/cdump, /u01/oradump/cdump$/ and exclude that from the directory to remove. On Mon, Jun 7, 2010 at 4:32 PM, Uri Guttman wrote: > >>>>> "np" =

Re: Remove old core dump directories in Oracle ... ???

2010-06-06 Thread newbie01 perl
On Mon, Jun 7, 2010 at 3:25 PM, Uri Guttman wrote: > >>>>> "np" == newbie01 perl writes: > > np> I found a better example at a Perlmonk posting and changed it a bit as > np> below: > > np> #!/usr/bin/perl > np> use strict; > &g

Re: Remove old core dump directories in Oracle ... ???

2010-06-06 Thread newbie01 perl
2010/6/7 Shlomi Fish > On Sunday 06 Jun 2010 19:59:36 Wojciech Łysiak wrote: > > On 06.06.2010 18:12, newbie01 perl wrote: > > > Hi all, > > > > > > Oracle core dumps are created as directories. I want to remove these > > > directories after

Remove old core dump directories in Oracle ... ???

2010-06-06 Thread newbie01 perl
Hi all, Oracle core dumps are created as directories. I want to remove these directories after a certain period of time, for example 10 days. I have the following script that searches a directory for files that are older than 10 days and possibly remove them. At the moment, for the sake of testin

Just asking - Tips on how to maintain your scripts ..

2010-06-04 Thread newbie01 perl
Hi all, Just writing to ask if any one can advise on what tools to use best for maintaining your scripts ... preferably free/open source and portable if there is one, that is, one that can be placed and run on a USB stick ... At the moment, am having them in directories and files and no versionin

Where - best source for Perl scripts example ... mostly SYSADMIN stuff

2010-06-04 Thread newbie01 perl
Hi all, Sorry for being lazy I guess but am assuming a lot of you will probably have a list of their favorite sites for resources of Perl scripts I did find a lot as well via Google but mostly Perl CGI stuff though ... Basically, am wanting to know where is the "best" place to fi

List of Available Modules ... ???

2010-06-04 Thread newbie01 perl
Hi all, I know perl -V prints what are the current modules directories that are accessible ... but is there a way to list all the available modules from each directories as well?

XML::XPath got some error creating a new parsing

2010-06-03 Thread perl
This is normally the basic when i added a xml file to the code Code :: /use XML::XPath; use XML::XPath::XMLParser; use Data::Dumper; # create an object to parse the file and field XPath queries my $xpath = XML::XPath->new( filename => "test.xml" ); print Dumper ($xpath) ;/ OutPut :: /$VAR

Some DBI question -

2010-05-29 Thread newbie01 perl
Hi, Am trying out DBI for Oracle and just want to know if for example, I need to include column formatting stuff etc., is it best to just put them into a .sql file and then execute the .sql file instead of placing them in the Perl DBI script? Also, is there anyway to sort of "hide" th

How to set LD_LIBRARY_PATH

2010-05-28 Thread newbie01 perl
Hi all, Can someone advise how to set LD_LIBRARY_PATH from within the Perl scripts? If I set LD_LIBRARY_PATH from the command line, all is okay [oracle ~]$ perl -e 'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";' Can't load '/oracle/product/db/11.1/perl/li

Setting PERL5LIB ... is this the expected behaviour ... ???

2010-05-27 Thread newbie01 perl
Hi all, Just need to confirm if this is the expected behaviour when setting PERL5LIB. If I have the folllowing in my script ... == #!/usr/bin/perl $ENV{PERL5LIB}="/oracle/product/db/11.1/perl/lib/site_perl/5.8.3/x86_64-linux-thread-

Which module ... ???

2010-05-26 Thread newbie01 perl
Hi all, With multiple Perl install, there will be multiple versions of the same modules. How can you change the order of where @INC look for the specific version of the module that you want to use? Is this done by using use lib? use lib qw(/path/to/one/library /path/to/another .. );

Re: Output to screen and to file ... how ... ???

2010-05-26 Thread newbie01 perl
grl | tee dgmgrl.out" ) ? > > this begs the whole question of why the OP isn't using DBI. > > yy> 2010/5/27 newbie01 perl : > >> Hi all, > >> > >> Can someone please help and advise if it is possible to have the output > of > >> the

Output to screen and to file ... how ... ???

2010-05-26 Thread newbie01 perl
Hi all, Can someone please help and advise if it is possible to have the output of the code below to the screen and at the same time to the file as well? open(ORA, "| dgmgrl > dgmgrl.out" ) or die "Can't pipe to dgmgrl: $!"; print ORA "connect sys/passw...@${connect_string_02}\n "; print ORA "sho

online perl courses

2010-05-23 Thread ben perl
Can anyone please recommend intermediate to advance perl online courses/tutorials with focus on Object oriented techniques, if they know. I am willing to pay also if it costs something. Thanks, -Ben

Source for Perl maintenance scripts anywhere ...

2010-05-19 Thread newbie01 perl
Hi all, Instead of re-inventing the wheel, I would like to possibly use existing Perl scripts that may already be available out there. Scripts that am looking for are mainly maintenance scripts, i.e. remove old files, rotate log files, remove old directory ( mainly core dumps directory

Re: data dumper

2010-05-17 Thread ben perl
;> AFAIK, YML has a notation for references (i.e., let one node of the >> document refer to another), too. So it all depends on the parser. >> >> I'm not sure whether evaluating perl code would be fast than parsing YML, >> but for a config file, I guess it wouldn&

data dumper

2010-05-16 Thread ben perl
What is the use of Data::Dumper module? can any body please give examples? Have been using perl for some time and never used this module. Not sure if i am missing something by not using it. Thanks, -Ben

How to Decode UDP packets got from libpcap using Net::Pcap

2010-05-05 Thread perl
> I have used libpcap to capture data using Net::Pcap module ... and now > ... i have been stuck with decoding... here is the code that i have > used http://cpansearch.perl.org/src/SAPER/Net-Pcap-0.16/eg/pcapdump > #!/usr/bin/perl use strict; use Data::Hexdumper; use File::Basename;

UNIX permission bit calculator ... ???

2010-04-21 Thread newbie01 perl
Hi, Does anyone have a UNIX permission bit calculator script that I can use? Basically, am looking for one where I don't have to a ls -l to check the permission on a file or directory. Am looking for a script that will display the permission bits and then just display what those permission bit set

Re: Help on using << on *nix and Windows

2010-04-21 Thread newbie01 perl
Hi David, Not being dubious, really am a newbie ... as far as Perl+DBI is concern. I can look at Perl codes on the average but not if the whiz programmers start using a lot of shortcuts etc My daytime job is as an Oracle DBA. Most of the scripting I do is mainly UNIX scripting and very

Local and global at the same time?

2010-04-20 Thread newbie01 perl
Hi all, If I declare a variable x1 outside of the sub that makes it global, right? Now the question is can I have the same variable x1 as a local variable of a sub, i.e. will the following work? $x1 = "cat"; sub sample() { my $x1="dog"; ... ... } Just trying to work out some guidelines

Perl script to change XML to text ... ???

2010-04-20 Thread newbie01 perl
HI all, Does anyone know of any XML to text Perl script around that I can use? Basically, I have an XML file that is supposed to composed of fields and unfortunately on the server, I do not have a browser to view it properly, at the moment, am downloading the file and then viewing it from my

Writing Perl scripts to run on any OS'es

2010-04-19 Thread newbie01 perl
Hi all, Am wanting to change my Perl scripts to get it to run on several UNIX flavours and Windows. At the moment, the only way I can think of how to accomplish that is always having the following checks on each and every sub that I have. Can anyone please suggest if there is a better way of

Help on using << on *nix and Windows

2010-04-19 Thread newbie01 perl
Hi all, I need to convert a lot of UNIX scripts into Perl. Most of them uses the UNIX's EOF/EOL functionality. These scripts are mostly used to connect to Oracle databases. At the moment, installing a DBI is not an option. The scripts will be running locally on the servers so technical

  1   2   3   4   5   6   7   >