Respected Monks,

Kindly suggest a module that I can use to create CGI/Apache Perl Scripts.

I am planning to create scripts that will pull information from a few SAN Storage Arrays and display it in a webpage. The script will be running on a Win 2003 32 Bit Server. There are chances that I could get access to a Linux Box (Redhat 5.8) from which I can run the scripts as well, so will have to create the scripts accordingly.

Before trying out anything on the office servers, I am planning to play around with it on my personal laptop, but it runs on Ubuntu 12.04. Should I install CentOS/Scientific Linux on my laptop and then try Apache or no need to do so? Because from what I have seen so far, there is a vast difference between the two Linux Versions.

I will be extremely thankful if someone could answer the questions.

use Learning::Perl;
use Beginning::Perl::Ovid;
print "Awesome Books";
[download]

Hi monks,

I want to realize such a function that it can cut some columns from one variable and returns them to an other variable, it also allows me to choose the columns and the separators arbitrary.

E.g. I want to extract the 2nd, 3rd and 5-7th columns from $source and save them into $dest, and the separators for the columns can be space, # or =.

Are there any easy ways to implement this function?

Thanks a lot!

$dsn = "dbi:Sybase:serverType=IQ:loginTimeout=240:server=$db_server_if
+c";
my $dbh = DBI->connect($dsn,
                         $self->get_db_username(),
                         $self->get_db_password(),
                         \%connect_options );

my $sqlA =<< "END_SQLA";
SELECT table_id
FROM   sys.systable
WHERE table_name like '${uc_table_name}%'
AND length(table_name) = $table_name_len
AND user_name(creator) = '$uc_schema'
END_SQLA

my $sthA = $dbh->prepare($sqlA);
$sthA->execute();

[download]

Hi, All

I have text file which looks like this

*|DSPF 1.0
*
*|DESIGN "TOP_1b_1a"
*|DATE "Tue Jun 18 11:42:12 2013"
*|VENDOR "Mentor Graphics Corp."
*|PROGRAM "Calibre xRC v2012.2_36.25"
*|DIVIDER /
*|DELIMITER :
* Nominal Temperature: 25C
* Circuit Temperature: 25C
*
.subckt TOP_1b_1a  PC_M1_M2_50_500_50_500_50_500_50_500_50_bot
+ PC_M1_M2_50_100_50_100_50_100_50_100_50_bot
+ PC_M1_M2_500_250_500_250_500_250_500_250_500_ctr
* PC_M1_M2_500_250_500_250_500_250_500_250_500_low
+ PC_M1_M2_75_500_75_500_75_500_75_500_75_bot
+ PC_M1_M2_75_100_75_100_75_100_75_100_75_bot
* PC_M1_M2_150_50_150_50_150_50_150_50_150_high
+ PC_M1_M2_100_500_100_500_100_500_100_500_100_bot
+ PC_M1_M2_100_100_100_100_100_100_100_100_100_bot
rM6_M7_JA_50_100_50_100_50_100_50_100_50_ctr/0 R435:pos
+ M6_M7_JA_50_100_50_100_50_100_50_100_50_ctr 238.22
rM6_M7_JA_50_100_50_100_50_100_50_100_50_ctr/1 R434:neg
+ M6_M7_JA_50_100_50_100_50_100_50_100_50_ctr 238.22
*
*|NET M6_M7_JA_50_100_50_100_50_100_50_100_50_high 0.0
*|I (R435:neg R435 neg B 0.0 10 3151)
R0 R0:pos R0:neg lvsres R=0.001 $X=9.975 $Y=10.999
R1 R1:pos R1:neg lvsres R=0.001 $X=9.975 $Y=122
R2 R2:pos R2:neg lvsres R=0.001 $X=9.975 $Y=243.999
R3 R3:pos R3:neg lvsres R=0.001 $X=9.975 $Y=355
R4 R4:pos R4:neg lvsres R=0.001 $X=159.963 $Y=10.999
R5 R5:pos R5:neg lvsres R=0.001 $X=159.963 $Y=122
[download]

I would appreciate any kind of help or ideas to build this script. Thank you

I am writing MAP REDUCE in PERL SCRIPT. I have written a MAP that outputs Key Value pair and I am writung a REDUCE to work on that Key Value Pair. The MAP command output is fed to the REDUCER and I am trying to create a hash of Key Value pair in reducer. But the hash is empty when I feed the data to it. The MAP is giving a proper output. I am facing a problem while creating the hash. Also I need to add the values of hash key that are same. How do I do that

MAP

#!/usr/bin/perl

open (MYFILE, "$ARGV[0]")or die $!;
while ( <MYFILE> ) {

chomp;
(my $txnid,my $date,my $custid,my $amount, my $productc, my $subc, my 
+$city, my $state, my $mode) = split(",");
my $key_to_reduce = join ".", "$subc", "$state";

print "$key_to_reduce\t$amount \n";

}
close(MYFILE);

REDUCE

#!/usr/bin/perl

my %worth = ();

while (<>) {
chomp;
(my $combined, my $value) = split ("\t");
print "Key to Reducer is:$combined \n";
print "Value of the key:$value \n";
$worth{$combined} = $value;
}
print "The hash is: %worth";
foreach my $key ( keys %worth ) {
print "key: $combined, value: $worth{$combined}\n";
}

REDUCE OUTPUT

Key to Reducer is:Fencing.Missouri
Value of the key:169.68
Key to Reducer is:Cheerleading.California
Value of the key:078.61
Key to Reducer is:Field Hockey.Texas
Value of the key:085.64
Key to Reducer is:Weightlifting Belts.Florida
Value of the key:030.48

............

key: , value:
key: , value:
key: , value:
key: , value:
key: , value:
key: , value:
key: , value:
key: , value:
key: , value:

MAP OUTPUT

notroot@ubuntu:~/lab/programs$ perl transaction_map.pl /home/notroot/l
+ab/data/txns | more
Cardio Machine Accessories.Tennessee    040.33
Weightlifting Gloves.California 198.44
Weightlifting Machine Accessories.California    005.58
Gymnastics Rings.Wisconsin      198.19
Field Hockey.Tennessee  098.81

DATA

00000000,06-26-2011,4007024,040.33,Exercise & Fitness,Cardio Machine A
+ccessories,Clarksville,Tennessee,credit
00000001,05-26-2011,4006742,198.44,Exercise & Fitness,Weightlifting Gl
+oves,Long Beach,California,credit
00000002,06-01-2011,4009775,005.58,Exercise & Fitness,Weightlifting Ma
+chine Accessories,Anaheim,California,credit
00000003,06-05-2011,4002199,198.19,Gymnastics,Gymnastics Rings,Milwauk
+ee,Wisconsin,credit
00000004,12-17-2011,4002613,098.81,Team Sports,Field Hockey,Nashville 
+ ,Tennessee,credit
00000005,02-14-2011,4007591,193.63,Outdoor Recreation,Camping & Backpa
+cking & Hiking,Chicago,Illinois,credit
00000006,10-28-2011,4002190,027.89,Puzzles,Jigsaw Puzzles,Charleston,S
+outh Carolina,credit
00000007,07-14-2011,4002964,096.01,Outdoor Play Equipment,Sandboxes,Co
+lumbus,Ohio,credit
00000008,01-17-2011,4007361,010.44,Winter Sports,Snowmobiling,Des Moin
+es,Iowa,credit

COMMAND

perl transaction_map.pl /home/notroot/lab/data/txns | perl transaction
+_reduce.pl

[download]

How would do I access local __DATA__ inside a package?

Thanks

package Test;


sub run {

while(<Test::DATA>)
{
        print "$_\n";
}

}

__DATA__
1



#!/usr/bin/perl
use strict;
use warnings;

use Test;

Test::run();

[download]

Hello Perl wise ones, forgive me if I'm having my usual frustration with installing Perl modules on Windows XP with ActiveState. I specifically want to install DBD::JDBC.

• I don't see it in the list when running ppm, and "ppm install DBD-JDBC" doesn't find it.

  ppm install DBD-JDBC
  ppm install failed: Can't find any package that provides DBD-JDBC
  [download]

• I also tried installing DBD::ODBC and got an "authorization required" error, but I don't know where to "authorize."
  ERROR: 401 Authorization Required
• I tried adding cpan to the repository list in ppm (http://www.cpan.org) but zero modules are added.
• I tried installing with cpan. I get dozens of errors, including a C Compiler not being installed. Just running "cpan" gives me this:
  

  It looks like you don't have a C compiler and make utility installed. 
  + Trying
  to install dmake and the MinGW gcc compiler using the Perl Package Man
  +ager.
  This may take a a few minutes...
  
  Downloading MinGW-5.1.4.1...redirect
  Downloading MinGW-5.1.4.1...failed 401 Authorization Required
  ppm.bat install failed: 401 Authorization Required
  
  It looks like the installation of dmake and MinGW has failed.  You wil
  +l not be
  able to run Makefile commands or compile C extension code.  Please che
  +ck your
  internet connection and your proxy settings!
  
  
  cpan shell -- CPAN exploration and modules installation (v1.9402)
  Enter 'h' for help.
  [download]

• I looked at the instructions for installing modules on cpan.org which says you need a C compiler: "(it's easy to get this setup - don't panic), see your OS of choice below to find out how to get the right compiler." ... but couldn't find any instructions on how to install this.

Perhaps this is all related to the authorization error? Any idea how I can get running here?

Thank you as always...

  my $myObjs = {
    alpha => re('^alpha(.*)'),
    beta => re('\d+'),
    #myOptionalField => re('^opt(.*)'),  #sometimes there is a "myOpti
+onalField", but sometimes there is not. What to do?
  };
  
  cmp_deeply(
    $response,
    {
      field1 => re('\d+'),
      field2 => 2,
      field3 => 1,
      objects => array_each($myObjs)
    },
    'testing for valid response structure'
  );
[download]

I've been reading the Perl 5.18 delta, and now that smartmatch is both experimental and depreciated I'm in a bit of a muck. I have a big project that uses given/when quite heavily (28 givens, 85 whens).

What is the recommended way to fix this? I know I can turn off the warning, but I'd rather fix the code. The documentation says that given/when is subject to big changes and might even go away, so disabling the warning is only a temporary fix. An automatic fix would be nice, but I don't mind doing all the work by hand. I have a good test suite, so I'm not concerned about breaking things.

Mostly the given/whens look like this:

given($foo) {
  when('abc') {...}
  when(['foo', 'bar']) {...}
  default {...}
};
[download]