Perl Forum

Hi, I was wondering if someone could figure out why my pointer assignment below won't work! In my code, I try to create a new hash %newhash at the same location as %hashy using the following code: %newhash=%$var; However, if you run the following code you will notice that \%hashy and \%newhash do not contain the same address values. This...

Hello you helpful folk! Please look at my script and tell me what I am doing wrong! I am cleaning the names of my music files from unnecessary symbols, and the cleaning works fine, however the perl rename function fails to do the actual renaming. I tried to rename a file in the same dir using strings instead of variables and that works!! But it...

Hi, I have a Hash: %hash= 'student' => , I want to sort the hash according to sorting of 'roll_no' .. After sorting It should be displayed %hash= 'student' => ,

I'd like to have sets of references (I'm from Java; I'm a Set guy). I understand that you cannot use a reference as a hash key, and that it gets stringified if you try. So, to make my Set object, I've been hashing the reference to itself (or more properly, hashing the stringification to the reference). I would like to not reinvent the...

I am having trouble sorting secondary keys in a multi-level hash. I have a sample program that exhibits the problem...the following code is sorting New 6 Month before New 1 Month. What am I doing wrong? Thanks in advance. #!/usr/bin/perl my %data = ( "2008-03-24" => {

Hello, I've made a two dimensional array using references, which I gather is the only way to do it in Perl. I now need to pass each interior array to a subroutine for processing and can't quite work out the syntax. Here's what I have so far. As you can see, my understanding of Perl falls apart when I get to the subroutine. Any help would...

Hi everyone, I am currently working at learning perl but come up with two problems i can't clear on my own. I use perl version 5.8 on windows xp The complete I am working on is supposed to find motifs in a sequence. This is the complete code #!/usr/bin/perl -w use strict;

Hi, I am trying to install DBD::mysql using the CPAN and I am facing the following error: cpan> install DBD::mysql CPAN: Storable loaded ok Going to read /root/.cpan/Metadata Warning: Found only 0 objects in /root/.cpan/Metadata CPAN: LWP::UserAgent loaded ok

I am using the following code but iam unable to connect to the IP address. I am unable to understand what is going wrong.... use Net::FTP; $ftp = Net::FTP->new('192.168.1.86') or die "Cannot connect to 192.168.1.86: $@"; $ftp->login("santoshc",'sanju123')

Hello, I'm having a problem with double quotes, @ symbols and # signs. When a user submits a text field with those symboles for example, its cuts them off like so... INSERT INTO po_item SET po_id='5304', descrip='10@9', price='0.0000' the descrip should have more text after it but a double quote is killing the rest of the input data. ...

Hi, everyone. I'm trying to find the lowest and the highest numbers that a user has had punched in. The code includes a user punching in 4 different numbers, each on a different line. I need help figuring out how to display the highest and lowest number from the numbers the user typed in and then print them. This is suppose to a very basic code...

AIX I have a set of commands that run and if a difference is found it prints a message to an array and then sends that array in an email. certain messages are not printing the new line after the text. others are. code: $message = "A difference in /opt/local/bin has been noted: $opt_local_bin{$file}{'new'}{'file'} is now available\n";...

I started learning perl friday!! I have one problem with this code... can someone tell me what is wrong here? #!/usr/bin/perl use strict; use warnings;

foreach my $x (sort keys %h_temp) { print OUTF2 $h_temp{$x}; chomp; $data = substr($_,43,4); $data2 = substr($_,54,4); $data =~ s/\s+$//; $data2 =~ s/\s+$//;

Hi I am using running one perl command using shell scripts, but it won’t take variable #!/bin/sh ar="/usr/local/apache/conf" perl -00ne '/$1/ && print $_' $ar/httpd.conf > domstat.txt I am passing following things on command line ./domcheck.sh domainname.com but perl unable to understand $1 even its not highlight as variable.

All: I am attempting to compile the perl module Device::SerialPort and get this error during make -- Manifying blib/man3/Device::SerialPort.3pm Can't open blib/man3/Device::SerialPort.3pm for writing: Invalid argument at /usr/lib/perl5/5.8.8/ExtUtils/Command/MM.pm line 132 make: *** Error 22 $ make all Manifying...

I am writing my very first Perl program, and am still lost with how to use split. I have several lines of data that I want to read in, for example: 333444555 Smith Ana Ms RN 777666555 Jones Tom Mr MD These data fields have certain restrictions. The first number always must be exactly 9 digits. The second and third can be up to 9 (anything...

Hi All, I am trying to get the login name of client's machine using Perl. I was under impression that getlogin() will do the job. But this is not giving correct results. Could anypne please help me in finding solution for the same. Thanks in advance.

hi guys, could any one help me how to write perl script to send email in unix system. thank you for any helping.

hi guys, i've got the code below that extract cell value from an excel sheet but any idea how i continue to output it to a text file? i'm not too sure how to do it, thanks use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; # die on errors...

I've decrypted a file several times with this script: perl -ne "print map {chr ord ($_) - 54} split //, $_" example.txt They have recently changed the encryption to something else and the command does not work. I wonder if someone could help me with fixing this decryptio, i'm stuck. (It is basicly the same but something is diffrent) This...

hi everyone could anyone help to conform the password, my script is following #!/usr/bin/perl use Getopt::Std; getopt('a:u:'); # First command switch, adding a user. if ($opt_a)

Hi, I am new to PERL Scripting, i need your help with one of the problem i am having. I am having a PERL Script which has two variables $CurMon and $PriorMon. a Windows batch script calls this PERL Script. I want to return the values of the these two variables to the windows batch script. Can i do this? Please give me some suggestions. ...

I have a script that runs in my DEV and PROD environment, but for some reason on my TEST server, I am getting the following error: The script's function is to read from an XML file and load the data to an Oracle table. I believe this error is actually caused by the environment, not sure what yet, but I have checked the DBI and DBD version...

My instructor has asked me to use the pop, shift, and push functions to write a script that sufficiently "shuffles" a simulated deck of cards before printing the top five cards. I came up with the following code but the problem I am having is that I can't seem to shuffle by just using pop, push, and shift. I think the problem for me is trying...