[perl] Forum Topics

when i do a stderr redirect to stdout, does the shell open the stdout file? if so is there any way i can capture the opening of this file? basically what i want to do is at the firstinstance of an error i want my perl script to die and …

hi just wanna ask is it possible for perl to get the value of a print command? for ex. my $result = print "hello world\n"; print "$result\n"; why is it that the "print $result" would print a value which is 1?.. is it possible to get the result "hello world" …

I just upgraded my server and now a simple log script reaks of errors. [code]#!/usr/bin/perl use CGI ':standard'; use warnings; $database = "/full_path/filename.shtml"; $shortdate = `date +"%D %T %Z"`; chop ($shortdate); open (DATABASE,">>$database"); print DATABASE "$ENV{'REMOTE_ADDR'} - $shortdate - $ENV{'SCRIPT_URI'} - $ENV{'HTTP_USER_AGENT'}<!-- - $ENV{'HTTP_REFERER'}--><BR>\n"; close(DATABASE); { print "Content-Type: text/html\n\n"; print …

We have this scripting working on one server and are trying to transfer it to a different server and we are getting this error the working server is fedora fc7 the new on is fedora fc12. When we run the script from a command line we get: web root 23:42:09 …

If i fork off a parent and want to fork of fthe child, can i pass new variables from the child to the "grand -child"? PL help me clear this concept.

I wasnt to fork from a parent and execute two perl codes simultaneously rot13.pl and pi.pl.I want to keep track of the pid's of both children. i am not aware how to do it within the system() cmd. I have written the code below. But something tells me I'm being …

Hello everyone, I'm currently working on an automated process which extract user info from AD with csvde, then do some treatments with perl scripts, convert the csv file into xls in order to do some modifications by a specific user in Excel, then convert the xls to csv, format it …

Hi, I have a file.txt, I need to enter the data in string. Currently my code looks like this, [CODE]#!/usr/bin/perl open myfiles, "file.txt" or die "couldn't find file: $!"; while (<myfiles>){ $string .= $_; } print $string; close(myfiles);[/CODE] The output when I print the string is like hello.c work.c office.c …

Hi gusy, Can any one suggest , how to install DBD::mysql on windows mechine. (Its eating my head). I tried all the possible ways , but its not installing. 1) I tried to install directly from cpan , failed 2) manually downloaded, and tried to install, still failing : showing …

I am trying to learn CGI programming in PERL. I have a simple test page that I want to try out, but when I upload it and try to display it as a web page, all I get is the source code. Can anyone help me out? I'm not sure …

cant get this to display on webpage. Apache is setup correctly. Getting error "[COLOR="Green"]malformed header from script. Bad header=04/19/2010: date.pl[/COLOR]" where am i going wrong? [CODE]#!/usr/bin/perl use strict; use warnings; use POSIX qw(strftime); my $cur_time = strftime "%a %b %e %H:%M:%S %Y", localtime; print "$cur_time\n"; open PS, "/bin/netstat -nra 2>&1|" …

has it been officially canned?

I need to compare columns widths and data types in a txt file using a template. Here is a bit of code that I have been working on, just need some help doing the comparisons using unpack. - perlnewbe... #!/usr/local/bin/perl use strict; use warnings; my $foo = (); my @bar …

hi all, i've a file named "a.config" with the line "CLUSTER_NAME[\t][\t]cluster1" by [\t] i mean tabs. now i need to change the value cluster1 to someother value, say autocluster. The code which i wrote was : [CODE]cat a.config | sed 's/CLUSTER_NAME[\t][\t] [A-Za-z0-9]*/CLUSTER_NAME[\t][\t]autocluster/' > a.config.temp[/CODE] [CODE]mv a.config.temp a.config[/CODE] but this doesn …

Hi, I want to search the log file for a string and extract all data until the end of that line where the search string is found. For example: A line in the file reads like below: [28/04/2010 11:17:53 GMT]PositionPoolCalculation.java(339):getPosCalculation[INFO]BUNP: B123456:1234567:ABCD ANP: B123456:1234567:ABCD:2 post LCN: DESabcdefgh I want to search …

Hi, I need to search 3 different servers and list the output of the directories to a specific file for each server. I understand how declare the constant(s) but unsure of how to iterate through all of the constants and list the file output. Any ideas would be helpful. Perlnewbe …

If the string is input from stdin: [CODE]scanf(" %s %d", R, &n);[/CODE] then is it possible to get the length of R as a by product from scanf as it already has scanned through the input? As you can see there can be spaces in front and after words and …

hi im new with perl. just read some tutorials 3 days ago. just wanna ask if perl can automate a mouse click?.. how is this possible?.. could u help me with this?..

Howdy all. I had an assignment to build a subnet calculator that would take (and validate) an IP and CIDR input and return the net_id, broadcast_id, first and last assignable IP addresses, and the number of assignable IP address. Would anyone care to look at my code and offer criticism? …

Hi, I'm a Perl newbie and I have a job to do, but I can't do that! I'm almost crying! =( Please, someone help me? This is my problem: I have a txt file like this Config.txt SourceIP = 10.1.1.1 SourceMAC = 00d0047203fc IPProtocol = 7 -------------------------------------------- Then I have …

Hello! I've done some Googling about this, and many sites say that "hasing" is a better alternative than using a variable name with a variable name. I don't understand the concept of hashing, and what I'm trying to do seems small and insignifant, so I was hoping someone could help …

I'm new to perl and need to read a txt file into a hash and then perfrom the following. Read in the file Create a Hash For each word in the file, count how many times the word occurs. Store the word a hash which is indexed with the words …

i have button in javascript, when i click ,it calls a CGI perl script and returns a download popup to me. Prob--> When javascript calling the script it starts a new thread redirecting to perl script and end. So i m not getting any action or response inside javascript. What …

I have downloaded a CPAN package 'Clickatell.pm' for use with a CGI script. I have uploaded it to the cgi-bin folder, set the permissions, but I can't get the script to use it. #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; use lib '/websites/123reg/LinuxPackage06/ma/sa/re/masarestaurant.co.uk/public_html/cgi-bin'; package Clickatell; my $catell = Clickatell->new( API_ID …

I'm trying to send a http request to an url and check the content of the url using following script. However, by just check whether the content is empty or not can't tell whether a site is working. #use all required modules here; my $url = "a url here"; my …

[code] #!/usr/bin/perl $run_env = "test"; $parm_file = "wf_PBM_DHT_CS90_CH_Hist_Extract.parm"; $sys_id = "PWLP"; #div name based on the session's call $div = "WLD"; $CH_TYPE = "CS90CH"; #process name will be the process name in the trigger file $PROCESS_NAME = "CH_CS90"; #sys_name would map to the applicable Tier e.g. FAC=Facets, WGS=WGS, STR=STAR…. $sys_name …

i am passing a varible which i want to process as utf8. but correctly i am not able to process the varible passed from the command line in perl..

Hi everyone, I support myself developing C/C++ on embedded platforms. [I]Embedded[/I] means there is typically no user interface, or only a limited one, like a few buttons and LEDs. Also, embedded processor are often very limited in power and resources. I particularly enjoy solving asynchronous interaction issues, e.g. passing control …

Hello, I’m using Perl script where executing SQL query which connecting to SQL loader to insert my data into table. When the script runs the success status returns, but the loader doesn’t load anything to DB, I want to get the Perl return value to compare it. Here is the …

Hi. I am trying to match a string: "RemoveAcc $k: $v" There are an arbitrary number of spaces between RemoveAcc and the two variables...Preferably I would like to store these to variables using $1 and $2 after the string is parsed, but I do not want to save the RemoveAcc …

Hi there I have following hash related code in Perl that i need to translate in Python if ( exists $legs->{$reference} ) { logg(" 2nd leg of swapes: $ref - merging"); my $swap = merge_swap_legs( $legs->{$ref}, $fields ); $ref = new_fk_ref( $fxall, $ref, $swap ); } else { $legs->{$ref} = …

Hi i want to install this cpan CPAN-1.9402.tar.gz Crypt-Rijndael-1.09.tar.gz the prblem is t install it from /tmp and not networking Thanks Danny

Hi... I have been having problems getting sendmail to work. 5 hours and counting. Here's what I have: #!/usr/local/bin/perl -w use sql; use CGI qw/:standard/; use DBI; $mail_prog = "/usr/sbin/sendmail"; print "Content-type: text/html\n\n"; $to='[email protected]'; $from= '[email protected]'; $subject='Your membership'; open (MAIL, "|$mail_prog -t"); print MAIL "To: $to\n"; print MAIL "Reply-to: $from\n"; …

Hello, I would need your help, I have a Perl code that makes a folder structure, it reads a txt and creates the folders Now I have an issue I have to go through this folder structure and insert a file delete_me txt is yhe lowest level, and I have …

Is there a way to store multiple values to a key without using any extra modules? Here is the code I have so far: [icode] $key = $ref->{$uniqueKey}; my $systemKey = GetSystem($key); push @{$referenceTable{$key}}, $systemKey; my ($k, @v); # SET UP THE TABLE print "<table border='1'>"; print "<th>User</th><th>System</th>"; # EXECUTE …

Hi, I've had a bit of experience with perl and shell scripting. I've been reading the O'Reilly Python book and have been having a go at replicating some of our perl scripts in python (v3.1.2). I'm looking to put something together than will parse through large xml files and manipulate …

Perl newbie here… need some help and suggestions. I’ve searched for many examples but so far it’s all for array operation for two arrays. I have three arrays and want to find the common value in the three array and list them out : Array 1 = {0, 1,2,3,4,5,6,7,8,9} Array …

Hi, I've a csv file consisting of two columns - one with "Last Name" and other with "Email Address". I would like to match Last Name ( not an exact but a contain match), and if didn't match, populate third column with "0". Does anyone has a perl script to …

Hi, I am looking for a conversion tool for converting an svg file into a jpg file. Does anybody know of a perl library which can do it or a tool with as few dependencies as possible and which can be accessed by command line. Thanks, Aj

Hi, I have 2 arrays and i have to compute the difference between arrays in perl. Here is the code. [code] @a=qw(20095053 19947571 19933274 19910458 19875498 19863670 19747485 19699809 19609242 19602509 19400988 19260844 19190289 19067769 19064710 19056771 19036087 18698092 18692784 18687424 18570886 18562159 18478156 18462614 18425777 18292846 18292840 18390561 18381856 …

hi i want to connect to my facebook with perl i just start now to programming in perl before perl i programming in C. i see several codes but all the codes not work!!! i want to connect to my facebook and to my msn messanger. very important that i …

I use the following script to open up outlook express and grab all e-mail contents. However, I only get a bunch of pipelines (|) instead of characters. I can't find anybody else who has run across this online, and was wondering what the problem is. Here's the code: [CODE] open(MAILER, …

Dear all, I am a newbie to perl. I want to read file line by line in two sets i.e., odds and even. Means it should first read first line and second line then check for regular expression in second line with condition to print or not then move forward …

Hi All, I have written one custom script in bugzilla called duration.cgi which calculates the bug duration. I am getting below error message while trying to access link : [url]http://localhost:8200/duration.cgi[/url] as below: [B]Software Error Insecure dependency in parameter 1 of DBI::db=HASH(0x275840c)->prepare_cached method call while running with -T switch at C:/Bugzilla/duration.cgi …

Hi, can any one help me out in list out the choices for the existing files through perl script

I'm writing a program which searches through a list of medium sized text files for a particular keyword string. This string may appear more than once in the file. The files are generally parsed out for readability, so they have hard returns at the 80 column mark within paragraphs. As …

Hi, I am new to using the Soap::WSDL module. How would I go about getting rid of this parsing error? [code] #!/usr/bin/perl use strict; use SOAP::WSDL +trace => 'all'; use Data::Dumper; my $ops = 'http://ops.epo.org/wsdl/ops.wsdl'; eval { my $soap=SOAP::WSDL->new( wsdl => $ops, ); }; if ($@) { print "wsdl error: …

hi i am new to this forum.i have a problem regarding to my project.The problem is that I can extract the email from the server and then I have a task to summarized the email and then SMS that summarized email.So that a email can be converted into 1 sms. …

It isn't quite Perl version 6 but it's well on its way. Between now and Monday, [URL="http://www.activestate.com"]ActiveState[/URL] will release version 5.12 of its cross platform, easily installed ActivePerl. Version 5.12 offers more than simple bug fixes; it's a major release that some developers look toward with great anticipation. The major …

I want to use $#array. But # makes the next words commented. Is it possible to avoid such situation? [CODE] for ($i =0; $i <= $#array; ++$i) [/CODE]