Perl Signals Aggregator

Web Applications Used For Creation Dynamic Sites. | Reliable ...

nobody@example.com (domainhostingtech) — 2010-07-30T03:48:34Z

The first web applications for creation dynamic sites were separate modules CGI (scripts, created mainly in the language Perl), which were executed on the server. CGI-scripts are ordinary programs. The result of module implementation is ...

Re: [PATCH] git svn: add an option to recode pathnames -- Git

nobody@example.com (unknown) — 2010-07-30T02:30:20Z

+ Valid encodings are the ones supported by Perl's Encode module. + Since the noMetadata, rewriteRoot, rewriteUUID, useSvnsyncProps and useSvmProps options all affect the metadata generated and used by 'git svn'; they *must* be set in ...

Rubénerd ツ – Perl 6 Rakudo Star

nobody@example.com (Ruben) — 2010-07-30T02:15:11Z

My first job out of high school was writing Perl programs. Was the happiest time of my life, because university hadn't crushed my spirit yet. Perl is awesome. CPAN is awesome! And don't believe what they say, it is possible to write ...

Ubuntu 9.04 [ISPConfig 3] - Step 12: Broken packages: sendmail ...

nobody@example.com (HorseArcher) — 2010-07-30T02:11:09Z

... getmail4 libdbd-mysql-perl{a} libdbi-perl{a} libgamin0{a} libhtml-template-perl{a} libmd5-perl{a} libnet-daemon-perl{a} libpam-mysql libplrpc-perl{a} libsasl2-modules-sql libsqlite0{a} libterm-readkey-perl{a} maildrop mysql-client ...

Web Hosting Checklist – Never Miss a Thing | Free Host Directory

nobody@example.com (admin) — 2010-07-29T15:47:26-10:00

If you do not have Perl, you cannot run Perl Programs. Many good scripts that you buy or get for free are written in Perl. In my opinion, it would be a limitation not to have the latest version of Perl installed ...

How can I create a Crypt::RSA object from modulus, exponent, and private exponent?

nobody@example.com (Steve Ivy) — 2010-07-30T01:18:57Z

I'm trying to port the following php functionality over to perl:

public function loadKey($mod, $exp, $type = 'public')
{
    $rsa = new Crypt_RSA();
    $rsa->signatureMode = CRYPT_RSA_SIGNATURE_PKCS1;
    $rsa->setHash('sha256');
    $rsa->modulus = new Math_BigInteger(Magicsig::base64_url_decode($mod), 256);
    $rsa->k = strlen($rsa->modulus->toBytes());
    $rsa->exponent = new Math_BigInteger(Magicsig::base64_url_decode($exp), 256);

    // snip...
}

I need to convert a string in the form ("RSA.$mod.$exp.$private_exp"):

RSA.mVgY8RN6URBTstndvmUUPb4UZTdwvwmddSKE5z_jvKUEK6yk1u3rrC9yN8k6FilGj9K0eeUPe2hf4Pj-5CmHww==.AQAB.Lgy_yL3hsLBngkFdDw1Jy9TmSRMiH6yihYetQ8jy-jZXdsZXd8V5ub3kuBHHk4M39i3TduIkcrjcsiWQb77D8Q==

...to a Crypt::RSA object. I've split out the components so I have $mod, $exp, and $private_exp, but the perl Crypt::RSA API doesn't seem to have a way to explicitly set.

Is The “Blog Battle” Lost To PHP? « Clockwork Zeppelin

nobody@example.com (admin) — 2010-07-30T00:34:46Z

I went looking for a list of blog software written in Perl and found myself looking at Wikipedia. (It like Dennys. No one sets out to go there but that's where you end up.) Searching for Blog Software, we find a link to content ...

Wow. [LWN.net]

nobody@example.com (dskoll) — 2010-07-30T00:16:53Z

Let's assume that the final Perl 6 release is N times larger than Perl 5, starts up M times as slowly, and uses P times as much memory after initialization. What's your best guess as to the values of N, M and P in the first production ...

devel/p5-Test-Script-Run - pkgsrc.se | The NetBSD package collection

nobody@example.com (pkgsrc-users@NetBSD.org) — 2010-07-30T02:10:58+02:00

Log message: Initial import of p5-Test-Script-Run version 0.04 in the NetBSD Packages Collection. The Perl 5 module Test::Script::Run exports some subs to help test and run scripts in your dist's bin/ directory. ...

www/p5-WWW-Mechanize-GZip - pkgsrc.se | The NetBSD package collection

nobody@example.com (pkgsrc-users@NetBSD.org) — 2010-07-30T02:06:08+02:00

The Perl 5 module WWW::Mechanize::GZip tries to fetch a URL by requesting gzip-compression from the webserver. If the response contains a header with 'Content-Encoding: gzip', it decompresses the response in order to get the original ...

#ecademyschool Social Media - Those first few steps [Mark Perl ...

nobody@example.com (unknown) — 2010-07-30T00:00:00Z

ecademyschool Social Media - Those first few steps [Mark Perl] - international banking and finance news analysis. Compare international banking solutions. Practical information and analysis... #ecademyschool Social Media - Those first ...

Network Programming with Perl By Lincoln D. Stein » Rapidshare ...

nobody@example.com (lizzinger1234) — 2010-07-29T23:43:02Z

Network Programming with Perl By Lincoln D. Stein Publisher: Addison-Wesley Professional 2001 | 784 Pages | ISBN: 0201615711 | CHM | 10 MB Network programming--the term had a distinct meani.

Perl 6 Releases | MidSofts.COM

nobody@example.com (King) — 2010-07-29T23:19:16Z

Announce: Rakudo Star - a useful, usable, "early adopter" distribution of Perl 6 On behalf of the Rakudo and Perl 6 development teams, I'm happy to.

ActiveState supports next version of SOAP technology: Developers ...

nobody@example.com (admin) — 2010-07-29T22:32:11Z

ActiveState believes in the open source and Perl communities.” Features of SOAP: ยท Open standard. Companies are free to choose platforms that are, soap making, best suited to solving their problems regardless of the technology to ...

perl how to regex parts of data instead of entire string and then print out a csv file

nobody@example.com (jaedre619) — 2010-07-29T22:31:45Z

I have a working perl script that grabs the data I need and displays them to STDOUT, but now I need to change it to generate a data file (csv, tab dellimited, any delimiter file). The regular expression is filtering the data that I need, but I don't want the entire string, just snippets of the output. I'm assuming I would need to store this in another variable to create my output file.

I need a good example of this or suggestions to alter this code. Thank you in advance. :-)

Here's my code:

#!/usr/bin/perl -w
# Usage: ./bakstatinfo.pl Jul 28 2010 /var/log/mybackup.log <server1> <server2>

use strict;
use warnings;

#This piece added to view the arguments passed in
$" = "][";
print "===================================================================================\n";
print "[@ARGV]\n";

#Declare Variables
my($mon,$day,$year,$file,$server) = @ARGV;
my $regex_flag = 0;                 

splice(@ARGV, 0, 4, ());            

foreach my $server ( @ARGV ) {      #foreach will take Xn of server entries and add to the loop
    print "===================================================================================\n";
    print "REPORTING SUMMARY for SERVER : $server\n";
    open(my $fh,"ssh $server cat $file |") or die "can't open log $server:$file: $!\n";
    while (my $line = <$fh>) {
        if ($line =~ m/.* $mon $day \d{2}:\d{2}:\d{2} $year:.*(ERROR:|backup-date=|backup-size=|backup-time=|backup-status)/) {
            print $line;
            $regex_flag=1; #Set to true
        }
    }
        if ($regex_flag==0) { 
           print "NOTHING TO REPORT FOR $server: $mon $day $year \n";
        }
    $regex_flag=0; 
    close($fh);
}

My working output now:

===================================================================================
[Jul][28][2010][/var/log/mybackup.log][server1]
===================================================================================
REPORTING SUMMARY for SERVER : server1
Wed Jul 28 00:49:54 2010: test203.bak_lvm:backup:INFO: backup-size=417.32 GB
Wed Jul 28 00:49:54 2010: test203.bak_lvm:backup:INFO: backup-time=04:49:51
Wed Jul 28 00:49:54 2010: test203.bak_lvm:backup:INFO: backup-status=Backup succeeded

The output I need to see would be something like this:(data file with separated by ';' for example)

MyDate=Wed Jul 28;MyBackupSet= test203.bak_lvm;MyBackupSize=187.24 GB;MyBackupTime=04:49:51;MyBackupStat=Backup succeeded

Learning Perl - Which version?

nobody@example.com (Vitor Py) — 2010-07-29T21:48:21Z

I've been thinking about learning Perl. Should I learn Perl5 or start with Perl6?

Calling 'scalar' on the results of the range operator (..) in Perl

nobody@example.com (fennec) — 2010-07-29T21:42:36Z

So, I believe this has something to do with the difference between arrays and lists, but I don't understand what's going on here. Can anyone explain how and why Perl treats an expression like (1..4) differently than (1, 2, 3, 4) and @{[1..4]}?

$ perl -de1

Loading DB routines from perl5db.pl version 1.31
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1): 1
  DB<1> x scalar (1,2,3,4)
0  4
  DB<2> x scalar (1..2,3,4)
0  4
  DB<3> x scalar (1,2..3,4)
0  4
  DB<4> x scalar (1,2,3..4)
0  ''
  DB<5> sub foo { (1..4) } # (the actual problem case, except 4 would be a variable)
  DB<6> x scalar foo()
0  ''
  DB<7> sub bar { @{[1..4]} } # (the workaround)
  DB<8> x scalar bar()
0  4

Free Readings Online » Blog Archive » Perl 6, Early, With Rakudo Star

nobody@example.com (slashman) — 2010-07-29T21:22:00Z

Perl 6 may have been "finally coming within reach" in 2004, but now it's even closer. Reader rnddim writes "The Perl 6 implementation Rakudo Star has been released today for 'early adopters.' This release of Rakudo is different from the ...

[PATCH/RFC] tests: WIP Infrastructure for Git smoke testing -- Git

nobody@example.com (unknown) — 2010-07-29T21:21:22Z

Currently I just hardcode e.g. "perl" and "architecture=amd64". Maybe this needs to be a top-level target instead? - Set up the smoke aggregator. I was running into some issues with smolder, but those are solvable given some time. ...

PATCH/RFC - tests: WIP Infrastructure for Git smoke testing

nobody@example.com (Ævar Arnfjörð Bjarmason) — 2010-07-29T21:20:55Z

Currently I just hardcode e.g. "perl" and "architecture=ad64". Maybe this needs to be a top-level target instead? - Set up the smoke aggregator. I was running into some issues with smolder, but those are solvable given some time. ...

Htbaa blogs? - My first Perl 6 code

nobody@example.com (Htbaa) — 2010-07-29T21:18:42Z

I immediately installed it on my laptop after I had fetched the installer and started up Rakudo REPL, an interactive Perl 6 shell. After a quick peek in the Using Perl 6 PDF I tried the following code. > say "test"; ...

How About a Shetland Ponie? - Modern Perl Books, a Modern Perl Blog

nobody@example.com (chromatic) — 2010-07-29T20:47:15Z

Rakudo Star is out, and so begins the next great wave of interest and use of Perl 6. The next several releases will improve performance, fix bugs, add features, port or create more libraries, and—in all likelihood—improve and otherwise ...

Perl script for updating linux | Projects for Freelancers

nobody@example.com (vWorker.com: Newest projects feed) — 2010-07-29T20:19:37Z

Please, post bids for new project: Perl script for updating linux.

Splitting a string with multiple white spaces with perl?

nobody@example.com (shinjuo) — 2010-07-29T20:09:28Z

I am trying to split a string with multiple white spaces. I only want to split where there are 2 or more white spaces. I have tried multiple things and I keep getting the same output which is that it splits after every letter. Here is the last thing I tried

@cellMessage = split(s/ {2,}//g, $message);
                foreach(@cellMessage){
                    print "$_ \n";
                }

Accessing the Catalyst object $c from MyApp.pm

nobody@example.com (Felix) — 2010-07-29T19:50:52Z

I'm using the Assets plugin in my Catalyst app, and I would like some javascript and css files included in the assets of every page.

My first thought is call $c->assets->include('file.js') from MyApp/lib/MyApp.pm where I do setup and config, but I don't know how to get a hold of $c there.

My next idea involves using the WRAPPER stuff, and placing calls like [% c.assets.include('file.js') %] in default html template, but the calls dump the object information to the page, so the calls would have to be uglied up to suppress output.

Solutions or new ideas appreciated. Thanks in advance.

Communication Network Rapidshare Free Full Downloads with Hotfile ...

nobody@example.com (unknown) — 2010-07-29T18:14:22Z

That's why Lincoln Stein's Network Programming with Perl is valuable. It shows how one of the world's top Perl authorities brings the language to bear on problems that require communication among computers, showing that you may not have ...

decode a string into different variables using PERL one liner

nobody@example.com (Rudorathod) — 2010-07-29T18:12:44Z

Hi,

I've the following strings which I would like to decode into different variables depending on the string

examples

{"response":{"report":"fail","brand":"1.0","fail":{"message":"Invalid Number"}}}

{"response":{"report" : "pass", "brand" : "1.0", "payment" :{"paymentId":"4CA008DAAA41EC19C754EF"}}}

{"response":{"report":"fail","brand":"1.0","fail":{"message":"internal server problems."}}}

{"response" : {"report" : "pass", "brand" : "1.0", "email" :{"subject":"Notification","to":"TEST@TEST.COM"}}}

I want to get one liner command or multiple command to fetch values into different variables.

Results

Variable 1 = fail  variable 2 = 1.0 variable 3 = Invalid Number

Variable 1 = pass  variable 2 = 1.0 variable 3 = 4CA008DAAA41EC19C754EF

Variable 1 = fail  variable 2 = 1.0  variable 3 = internal server problems.

variabl 1 = pass variable 2 = 1.0 variable 3 = Notification variable 4 = TEST@TEST.COM  ( since there are 2 values in the inner most {} )

Excess Rapidshare Free Full Downloads with Hotfile and MegaUpload ...

nobody@example.com (unknown) — 2010-07-29T18:04:31Z

UltraEdit is a powerful disk-basked text editor, programmer's editor, and hex editor that is used to edit HTML, PHP, javascript, Perl, C/C++, and a multitude of other coding/programming languages. UltraEdit can handle and edit files in ...

Perl 5 Essential Training | Revskill's Blog

nobody@example.com (revskill) — 2010-07-29T18:02:18Z

In Perl 5 Essential Training, author Bill Weinman explains the fundamentals of programming in Perl, a flexible and powerful programming language that s well suited for projects as varied as simple scripts to complex web applications. ...

Should I choose ActivePerl or Strawberry Perl for Windows?

nobody@example.com (Andrew) — 2010-07-29T17:53:21Z

I'm totally new to Perl but I'd like to try it out. I read about two rival distributions available for Windows platform (I guess there's just Perl on other OSes :).

Wikipedia says that Strawberry comes with additional dev tools to compile CPAN modules if necessary. Sounds pretty good to me.

It also says that ActivePerl has a lot of prepackaged modules which are easier to install with PPM. Sounds great too!

There's a clear trade-off between those two. And I wonder what should I pick to get started? If I pick one how hard is it to migrate to the other?

Matching lines across multiple csv files and merging a particular field

nobody@example.com (alex) — 2010-07-29T17:30:24Z

I have about 20 CSV's that all look like this:

"[email]","[fname]","[lname]","[prefix]","[suffix]","[fax]","[phone]","[business]","[address1]","[address2]","[city]","[state]","[zip]","[setdate]","[email_type]","[start_code]"

What I've been told I need to produce is the exact same thing, but with each file now containing the start_code from every other file where the email matches.

It doesn't matter if any of the other fields don't match, just the email field is important, and the only change to each file would be to add any other start_code values from other files where the email matches.

For example, if the same email appeared in the wicq.csv, oota.csv, and itos.csv it would go from being the following in each file:

"anon@yahoo.com","anon",,,,,,,,,,,,01/16/08 08:05 PM,,"WIQC PDX"
"anon@yahoo.com","anon",,,,,,,,,,,,01/16/08 08:05 PM,,"OOTA"
"anon@yahoo.com","anon",,,,,,,,,,,,01/16/08 08:05 PM,,"ITOS"

"anon@yahoo.com","anon",,,,,,,,,,,,01/16/08 08:05 PM,,"WIQC PDX, OOTA, ITOS"

for all three files (wicq.csv, oota.csv, and itos.csv)

Tools I have available would be OS X command line (awk, sed, etc) as well as perl-though I'm not too familiar with either, and there may be a better way to do this.

Parameterized Roles and Method Traits - Vox

nobody@example.com (John Napiorkowski) — 2010-07-29T17:27:32Z

Additionally this looks much more like what a modern programmer expects to see when creating classes, which should make it easier for people coming from other languages to get excited about modern Perl. The only (current) downsides are ...

match and replace multiple newlines with a SED or PERL one-liner

nobody@example.com (fo.Obar) — 2010-07-29T17:16:52Z

I have an input C file (myfile.c) that looks like this :

void func_foo();
void func_bar();

//supercrazytag

I want to use a shell command to insert new function prototypes, such that the output becomes:

void func_foo();
void func_bar();
void func_new();

//supercrazytag

So far I've been unsuccessful using SED or PERL. What didn't work:

sed 's|\n\n//supercrazytag|void func_new();\n\n//supercrazytag|g' < myfile.c
sed 's|(\n\n//supercrazytag)|void func_new();\1|g' < myfile.c

Using the same patterns with perl -pe "....." didn't work either.

What am I missing ? I've tried many different approaches, including this and this and that.

Project Euler: Problem 5 | ScrollingText

nobody@example.com (Bryce) — 2010-07-29T17:06:50Z

My solution for Project Euler's fifth question. Solutions come in Haskell, Python, and Perl flavors. ... Project Euler: Problem 5. Submitted by Bryce on Thu, 07/29/2010 - 10:06. Haskell · PERL · Project Euler · Python ...

How to write from n-th row to a file using perl

nobody@example.com (Marcin) — 2010-07-29T16:53:05Z

I have a source text in a file and looking for a code that would take the second (or n-th - in general) row from this file and print to a seperate file.

Any idea how to do this?

How do I find "wide characters" printed by perl?

nobody@example.com (Larry Wang) — 2010-07-29T16:44:07Z

A perl script that scrapes static html pages from a website and writes them to individual files appears to work, but also prints many instances of wide character in print at ./script.pl line n to console: one for each page scraped.

However, a brief glance at the html files generated does not reveal any obvious mistakes in the scraping. How can I find/fix the problem character(s)? Should I even care about fixing it?

The relevant code:

use WWW::Mechanize;
my $mech = WWW::Mechanize->new;   
...
foreach (@urls) {
    $mech->get($_); 
    print FILE $mech->content;  #MESSAGE REFERS TO THIS LINE
...

This is on OSX with Perl 5.8.8.

| Learn How To Hack - Ethical Hacking Tutorials and Cyber security ...

nobody@example.com (Adnan Anjum) — 2010-07-29T16:19:00Z

[2] Little panning of Perl language used into an internet context. Using a Perl code into an internet context means that u should be able to make a sort of dialog between your script and the server side (or other..). To make this u need ...

Rakudo Star - a useful, usable, "early adopter" distribution of ...

nobody@example.com (Karen) — 2010-07-29T16:17:42Z

On behalf of the Rakudo and Perl 6 development teams, I'm happy to announce the July 2010 release of "Rakudo Star", a useful and usable distribution of Perl 6. The tarball for the July 2010 release is available from ...

Dependencies in Perl code.

nobody@example.com (Konerak) — 2010-07-29T16:17:26Z

I've been assigned to pick up a webapplication written in some old Perl Legacy code, get it working on our server to later extend it. The code was written 10 years ago by a solitary self-taught developer...

The code has weird stuff going on - they are not afraid to do lib-param.pl on line one, and later in the file do /lib-pl/lib-param.pl - which is offcourse a different file.

Including a.pl with methods b() and c() and later including d.pl with methods c() and e() seems to be quite popular too... Packages appear to be unknown, so you'll just find &c() somewhere in the code later.

Interesting questions:

Is there a tool that can draw relations between perl-files? Show a list of files used by each other file?
The same for MySQL databases and tables? Can it show which schema's/tables are used by which files?
Is there an IDE that knows which c() is called - the one in a.pl or the one in d.pl?
How would you start to try to understand the code?

I'm inclined to go through each file and refactor it, but am not allowed to do that - only the strict minimum to get the code working. (But since the code never uses strict, I don't know if I'm gonna...)

Sending text messages with perl?

nobody@example.com (shinjuo) — 2010-07-29T16:10:09Z

Is there a way to send text messages for free or cheap with Perl? I see a lot of things on CPAN, but they all cost quite a bit. Is there anyway to send an email as a text message?

Push call in Perl overwriting array

nobody@example.com (ThePirateSheep) — 2010-07-29T15:50:03Z

Ok, here's the deal. I have an array (inputted from a 400 MB file) where if I run the sort() command on it, comp runs out of memory. The input file isn't the problem, so I've decided to break the initial array into smaller arrays that I can perform the sort on. I can break the initial array into arrays of size 100k, which my code does.

(for the purposes of this testing, I've shrank the file from 400 MB to 40 MB)

I run my break array code, and on first iteration, i have an array of 100k as a reference in my @arrayList. My code is just this:

push @arrayList, \@sorted;        #@sorted is the sorted version of the 100k array
$temp = @arrayList;               #returns 1, which it should 
@arrayTemp2 = @{$arrayList[0]};
$temp = @arrayTemp2;              #returns 100k, which it should
@arrayTemp2 = @{$arrayList[1]};
$temp = @arrayTemp2;              #returns 0 since it is uninitialized

On the next loop in the for loop, the sorted array is the rest of the initial array, only 23k. Same code runs again, with these results:

push @arrayList, \@sorted;        #@sorted is the sorted version of the 23k array
$temp = @arrayList;               #returns 2, which it should 
@arrayTemp2 = @{$arrayList[0]};
$temp = @arrayTemp2;              #returns 23301, which is wrong
@arrayTemp2 = @{$arrayList[1]};
$temp = @arrayTemp2;              #returns 23301, which is right.

I've tried using every different way I can think of to fix this, and I just have no ideas left. Any help?

Thanks

Perl map/grep memory leak

nobody@example.com (James Gleeson) — 2010-07-29T15:02:39Z

I have been working on a perl project at work, and came across a strange memory leak. I have boiled down the source of my problem into a contrived example:

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

# takes: an array reference
# returns: 1
sub g {
    my ($a) = @_;
    return 1; 
}

# takes: nothing
# returns: the result of applying g on an array reference
sub f {
    my @a = ('a') x 131072; # allocate roughly a megabyte 
    return g(\@a); 
}

# causes a leak:
#map { f($_) } (1..100000); 

# loop equivalent to map, no leak:
#my @b;
#for my $i (1..100000) {
#    push @b, f($_);
#}

# causes a leak:
#grep { f($_) } (1..100000);

# loop equivalent to grep, no leak:
#my @b;
#for my $i (1..100000) {
#    push @b, $i if f($_);
#}

Uncomment 1 of the 4 blocks of code (beneath the subroutines) at a time and run the script while monitoring its memory usage. On my machine, the code that uses grep or map appear to cause memory leaks, whereas the "loop equivalent"s do not. My perl version is v5.10.1, and I am running Ubuntu.

I believe this could be a bug in perl, but I don't want to jump to a drastic conclusion without another opinion on what could be the cause. Can anyone explain if this behaviour is correct?

Thanks

How to reslove array hash issue

nobody@example.com (Tree) — 2010-07-29T14:58:35Z

  my %geo_location_map = (
                             US => [ 'US', 'CA' ],
                             EU => [ 'GB', 'ES' ],

                           );
   $location= "US" ;
   my $goahead = 0;

    if (exists  $geo_location_map{US} ) {
    print "exists";
        my @glocation =  $geo_location_map{US};

    foreach @glocation { 
        if ( $_ eq "$location"} { $goahead=1; last;}  
        }
    }

I tried its not working

How do I collect the lines between two key words?

nobody@example.com (ram) — 2010-07-29T14:42:39Z

Hi, I have a file like:

START

  Length: 1432

  RIdentifier: 4

  VIdentifier: 4

  Format: 5

  TS number: 9

  DHeader

    Version        = 1
    Length         = 1432
    Command Flags  = RPT (0xd0)
    Command Code   = Accounting-Request (271)
    Application Id = Rf-Application (3)
    Hop By Hop Id  = 51
    End To End Id  = 8847360

START

  Length: 12

  RIdentifier: 2

  VIdentifier: 4

  Format: 5

  TS number: 6

  DHeader

    Version        = 1
    Length         = 1432
    Command Flags  = RPT (0xd0)
    Command Code   = Accounting-Request (271)
    Application Id = Rf-Application (3)
    Hop By Hop Id  = 51
    End To End Id  = 8847360

START

I need to collect all the lines that are found between START and write it into 2 files. I tried with flip flop in Perl like:

open(FILE, $ARGV[0]);
while (<FILE>) {
    if (/START/ .. /START/) {
        print "$. $_ \n";
    }
}

But I am getting only the lines that have START. Could you please help me?

Rakudo Star - A first usable Perl 6

nobody@example.com — 2010-07-29T14:15:59Z

A first usable Perl 6 implementation has been released in the form of Rakudo Star. Aimed at the early adopters of Perl 6, it is not yet complete

Benchmarking simple stuff in different languages

nobody@example.com (skeldoy) — 2010-07-29T14:06:17Z

I wanted to find out just how big the differences in speed was between popular languages. To benchmark the languages I choose a very simple but common operation to be performed in similar conditions with different languages. The results came as quite a surprise.

Method

To do this benchmark I made simple Hello World programs in the different languages (some compiled, some interpreted). I then wrote a simple wrapper in Perl that ran the programs in a for-loop, simulating running the program 1000 times. This method may be a testament to how well my ubuntu fires different executables and frameworks and not to the code, but it is still interesting to see how a real world application of a program language is to do a menial task like printing a string many times. To eliminate the graphics-card I piped the output of the programs to a file in one instance and did nothing with it in another instance (just back-ticking the output to a perl-variable and then doing nothing to it). Before claiming that the methodology is unfair I would like to point out that this is the way I run programs on linux/unix and that for my particular use this is a valid benchmark.

Language	Seconds
Asm (nasm)	0.46
C (llvm)	0.84
Obj-C (llvm)	0.85
C (gcc)	0.87
Sh	1.11
C++ (llvm)	1.22
Pascal (fp)	1.48
Awk	1.83
C++ (gcc)	1.86
Fortran (G95)	2.15
Brainfuck	2.24
Perl	3.01
Bash	3.13
Cobol (open)	3.35
Obfuscated Perl	3.68
Ruby	5.35
Tcl	5.53
Python	16.33
Php	103.97
Java	121.88
Groovy	1318

Doing another benchmark where I basically let the hello world program contain a 1000000 long for-loop written in the program itself and then running this program 10 times I got different results:

GCC:   timethis 10: 1 wallclock secs ( 0.00 usr 0.00 sys + 0.69 cusr 0.39 csys = 1.08 CPU) @ 9.26/s (n=10)
LLVM:   timethis 10: 1 wallclock secs ( 0.00 usr 0.00 sys + 0.68 cusr 0.42 csys = 1.10 CPU) @ 9.09/s (n=10)
Perl:   timethis 10: 2 wallclock secs ( 0.00 usr 0.00 sys + 1.73 cusr 0.44 csys = 2.17 CPU) @ 4.61/s (n=10)
Python:   timethis 10: 8 wallclock secs ( 0.00 usr 0.00 sys + 6.41 cusr 0.68 csys = 7.09 CPU) @ 1.41/s (n=10)
Php:   timethis 10: 40 wallclock secs ( 0.00 usr 0.00 sys + 7.20 cusr 28.15 csys = 35.35 CPU) @ 0.28/s (n=10)
Java:   timethis 10: 111 wallclock secs ( 0.00 usr 0.01 sys + 36.21 cusr 61.36 csys = 97.58 CPU) @ 0.10/s (n=10)
Bash:   timethis 10: 321 wallclock secs ( 0.00 usr 0.01 sys + 248.54 cusr 49.48 csys = 298.03 CPU) @ 0.03/s (n=10)

This speaks to the sluggishness of the different interpreters and virtual machines and/or the size of the executable. But it also underlines the importance of choosing which programming language you use wisely depending on the case you want to solve. Sure this is a moot point in most cases, but imaging taking development time into account. Writing something in PHP can be OK to solve a problem quickly, but seeing that writing the same code in Perl can be as easy or even easier and seeing the performance boost that script would have makes you wonder why PHP is even out there.

The most surprising result is the Bash. Running a simple bash-script 1000 times from the console is pretty snappy in terms of other scripting languages, but having bash loop a million times and running that is slower than even Java. That is a real surprise. The relative slowness of Python is also interesting, given that Python’s popularity is growing where Perl looses supporters. But equally as surprising is the speed at which Perl does this simple operation. Writing stuff in Perl is relatively straight forward (compared to C) but that does not seem to be a problem when doing menial tasks like this.

Language	Seconds
Asm (nasm)	0.46
C (llvm)	0.84
Obj-C (llvm)	0.85
C (gcc)	0.87
Sh	1.11
C++ (llvm)	1.22
Pascal (fp)	1.48
Awk	1.83
C++ (gcc)	1.86
Fortran (G95)	2.15
Brainfuck	2.24
Perl	3.01
Bash	3.13
Cobol (open)	3.35
Obfuscated Perl	3.68
Ruby	5.35
Tcl	5.53
Python	16.33
Php	103.97
Java	121.88
Groovy	1318

Find combinations of numbers that sum to some desired number

nobody@example.com (itzy) — 2010-07-29T13:59:49Z

I need an algorithm that identifies all possible combinations of a set of numbers that sum to some other number.

For example, given the set {2,3,4,7}, I need to know all possible subsets that sum to x. If x == 12, the answer is {2,3,7}; if x ==7 the answer is {{3,4},{7}} (ie, two possible answers); and if x==8 there is no answer. Note that, as these example imply, numbers in the set cannot be reused.

This question was asked on this site a couple years ago but the answer is in C# and I need to do it in Perl and don't know enough to translate the answer.

I know that this problem is hard (see other post for discussion), but I just need a brute-force solution because I am dealing with fairly small sets.

passing a data structure from java to perl (and vice versa)

nobody@example.com (David B) — 2010-07-29T13:27:50Z

Hi,

A few days ago I asked about passing a data structure from java to perl and vice versa, and one of the recos was JSON. I played with it (mainly using Gson for java) and it seems quite nice. The only problem is I have references inside my data structure (to other objects inside the same data structure). Currently, each such reference is "translated" fully so actually each object is duplicated many times, and you can't tell all those references pointed to the same object.

Is there someway to pass info from java to per and vice versa, preferably in a human readable format, that also keeps the data about references instead duplicating values?

Thamks, Dave

Computer Languages History

nobody@example.com (Thulasiram S) — 2010-07-29T13:08:43Z

Action Script
1. Action Script Home Page
2. Action Script Adobe Developer Connection
3. Action Script tutorials

Ada
1. Ada 95
2. Ada Home Page
3. AdaPower
4. Special Interest Group on Ada
5. Ada Information Clearinghouse

ALGOL
1. The ALGOL Programming Language
AWK
1. The AWK Programming Language by Alfred V. Aho, Brian W. Kernighan, and Peter J. Weinberger
APL
1. Apl Language
2. APL

B
1. The Programming Language B (abstract)
2. Users’ Reference to B by Ken Thompson
BASIC
BCPL
1. BCPL Reference Manual by Martin Richards
C
1. The Development of the C Language by Dennis Ritchie
2. Very early C compilers and language by Dennis Ritchie
3. The C Programming Language (book)
4. Programming languages – C ANSI by ISO/IEC (draft)
5. C Programming Course

C++
1. The C++ Programming Language (book)
2. C and C++: Siblings (pdf) by Bjarne Stroustrup
3. C++0x – the next ISO C++ standard by Bjarne Stroustrup
C#
1. Visual C# Language by Microsoft.
Caml
CLU
1. CLU Home Page
COBOL

CORAL
1. Coral66
2. Computer On-line Real-time Applications Language Coral 66 Specification for Compilers (pdf)
CPL
1. Combined Programming Language (Wikipedia)
Delphi
1. Delphi 2005 by Borland
2. Pascal and Delphi
3. A brief history of Borland’s Delphi
4. Delphi Treff: Delphi versions (german)
Eiffel
1. Eiffel
2. EiffelStudio by Eiffel Software
3. Visual Eiffel by Object Tools
4. SmartEiffel
5. EiffelZone
Flash
1. Adobe Flash

Flex

Adobe Flex Software development kit

Flow-Matic

Flow-Matic and Cobol

Forth

Forth Interest Group Home Page

Fortran

Haskell
1. Haskell Home Page
Icon
J
1. J software
2. A management perspective of the “J” programming language
Java
1. Java by Sun Microsystems
2. Java Technology: an early history
3. Programming Languages for the Java Virtual Machine
4. James Gosling’s home page
JavaScript
1. Cmm History by Nombas
2. JavaScript Language Resources from Mozilla
3. Standard ECMA-262

Lisp
1. The Association of Lisp Users
2. An Introduction and Tutorial for Common Lisp
Mainsail
- Mainsail from Xidak.
1. Mainsail Implementation Overview by Stanford Computer Systems Laboratory.
M (MUMPS)
ML
1. Standard ML
2. Standard ML ’97
Modula

Oberon
Objective-C
Pascal
1. ISO Pascal (document)
2. Pascal and Delphi
Perl
1. Perl Home Page
2. Perl
3. Larry Wall’s Very Own Home Page
PHP
1. PHP: Hypertext Preprocessor
PL/I
1. Multics PL/I
2. IBM PL/I family by IBM
Plankalkül
1. Plankalkül
PostScript
1. PostScript level 3 by Adobe
2. PostScript GhostScript PDF
3. GhostScript Home Page
Prolog
1. Prolog Programming Language
2. The Prolog Language
Python
1. Python Home Page

Rexx
1. IBM REXX Family by IBM
2. The Rexx Language Association
Ruby
1. Ruby Home Page
2. Ruby programming language (Wikipedia)
3. Ruby – doc
Sail
1. Sail (Stanford Artificial Intelligence Language)
Sather
Scheme
1. Scheme by MIT
2. The Revised⁵ Report on the Algorithmic Language Scheme (in PostScript)
3. Schemers Home Page
4. SCM
Self
1. Self Home Page from Sun
Sh
1. The Traditional Bourne Shell Family by Sven Mascheck
2. Korn Shell by David Korn
3. Bash from GNU
4. Zsh
Simula
1. Simula by Jan Rune Holmevik
Smalltalk
1. Smalltalk Home Page
2. Smalltalk FAQ
3. The Early History of Smalltalk
4. The Smalltalk Industry Council web site
5. VisualAge Smalltalk from IBM
6. VisualWorks from Cincom
7. The history of Squeak
8. ANSI Smalltalk
SNOBOL
1. Snobol4 Resources by Phil Budne
2. Introduction to SNOBOL Programming Language by Mohammad Noman Hameed
3. Snobol4
Tcl/Tk
1. Tcl/Tk Information

17.421585 78.451038

Sending Mail Through Perl

nobody@example.com (Flower07) — 2010-07-29T11:27:12Z

I am using the below code to send an email

#!/usr/bin/perl

sub BEGIN {
        unshift (@INC,'/opt/dev/common/mds/perlLib');
}

use Mail::Sender;

$sender = new Mail::Sender
{smtp => 'xxx.xxx.x.xx', from => 'abc@xyz.xom'};
$sender->MailFile({to => 'abc@xyz.xom',
subject => 'Here is the file',
msg => "I'm sending you the list you wanted."});

$sender->Close;

But, it is not sending the mail at all. What is wrong in my code?

java doesnt seem to read my perl piped output intime and is filling up

nobody@example.com (imerez) — 2010-07-29T09:17:46Z

I have the following snippet calling a perl script which writes to STDERR and STDOUT. I've been following the recomended procedures such as auto flushing the STDOUT and STDERR in the perl script and using streamgobbler threads. I've noticed this to help my issue in to a degree but at times where the perl script generates large volumes of output it will still fill up its pipes and hang. The only thing that seems to stop this adding the following to my perl script however obviously I would like the output so this is not an option.

update >>

Another interesting occurence is when I cat the /proc/pid/fd/pipe# in linux it causes the pipe to be read to be accessed. This seems to dump the content of the pipe meaning my perl process can again write to it and thus complete. Must be therefore my java process is not reading the process output stream properly.

PERL :

close STDOUT 
close STDERR

My java looks like the following

   parserProcess = run.exec(config.getCMDArray(),env);

StreamGobbler errorGobbler = new StreamGobbler(parserProcess.getErrorStream(), "ERROR");

  // any output?
     StreamGobbler outputGobbler = new StreamGobbler(parserProcess.getInputStream(), "OUTPUT");

  // kick them off
     errorGobbler.start();
     outputGobbler.start();

whereby StreamGobbler is ->

class StreamGobbler extends Thread
{
    InputStream is;
    String type;

StreamGobbler(InputStream is, String type)
{
    this.is = is;
    this.type = type;
}

public void run()
{
    try
    {
        InputStreamReader isr = new InputStreamReader(is);
        BufferedReader br = new BufferedReader(isr);
        String line=null;
        while ( (line = br.readLine()) != null)
            System.out.println(type + ">" + line);    
        } catch (IOException ioe)
          {
            ioe.printStackTrace();  
          }
}
}



 String line="";

 status = parserProcess.waitFor();

Thanks in advance

How do I process captured output from `tail` without reprocessing?

nobody@example.com (awaiskhan200) — 2010-07-29T05:31:38Z

Hi, I want to excecute a tail command in Unix for indefinite time and capture its output in a Perl script, process it and store certain data into a database. But it should be live, meaning old data – once stored in the database – shouldn't be reprocessed. It should only capture, and process only the most recent output.

Can someone please tell me how can this be done? Thanks in anticipation.

returning a lazily-computed scalar, in perl

nobody@example.com (bukzor) — 2010-07-29T01:50:52Z

I'm trying to add some functionality to our code base by using tied scalars.

We have a function which is specified to return scalars. I thought I could add some features to the system by tie-ing these scalars before returning them, but it looks like the FETCH method is called just before the return, which results in an untied scalar being returned.

Is there any way around this?

I really want to keep the subroutine's interface (returning scalars) intact if it's at all possible.

use strict;
use warnings;
main();

sub GetThing{
    my $thing;
    tie $thing, 'mything', @_;
    return $thing;
}

sub main {
    my %m;
    $m{pre} = GetThing('Fred');
    print "1\n";
    print $m{pre};
    print "2\n";
    print $m{pre};
    print "3\n";
}


package mything;
require Tie::Scalar;

my @ISA = qw(Tie::StdScalar);

sub TIESCALAR {
    my $class  = shift;
    bless {
        name    => shift || 'noname',
    }, $class;
}

sub FETCH {
    my $self = shift;
    print "ACCESS ALERT!\n";
    return "    NAME: '$self->{name}'\n";
}

Desired output:

1
ACCESS ALERT!
    NAME: 'Fred'
2
ACCESS ALERT!
    NAME: 'Fred'
3

I can get the desired output by returning a reference, and dereferencing on each access, but that ruins our established interface, and makes it more confusing for our users.

--Buck

Monster perl regex

nobody@example.com (nnyby) — 2010-07-28T20:34:08Z

I'm trying to change strings like this:

<a href='../Example/case23.html'><img src='Blablabla.jpg'

To this:

<a href='../Example/case23.html'><img src='<?php imgname('case23'); ?>'

And I've got this monster of a regular expression:

find . -type f | xargs perl -pi -e \
  's/<a href=\'(.\.\.\/Example\/)(case\d\d)(.\.html\'><img src=\')*\'/\1\2\3<\?php imgname\(\'\2\'); \?>\'/'

But it isn't working. In fact, I think it's a problem with Bash, which could probably be pointed out rather quickly.

r: line 4: syntax error near unexpected token `('
r: line 4: `  's/<a href=\'(.\.\.\/Example\/)(case\d\d)(.\.html\'><img src=\')*\'/\1\2\3<\?php imgname\(\'\2\'); \?>\'/''

But if you want to help me with the regular expression that'd be cool, too!

Perl humor - the 5 oneLiners

nobody@example.com (poisonbit) — 2010-07-28T15:51:04Z

“Perl oneliner” is the direct usage of the Perl interpreter at the command line, mostly

perl + identify if param is empty value from ARG

nobody@example.com (lidia) — 2010-07-27T08:07:15Z

Hi all,

when I run the following script.pl script with no arguments:

./script.pl

I do not get the message No arg. Why? How to identify if $param is a null value or empty value, same as [ -z from ksh?

#!/usr/bin/perl
my $param = $ARGV[0];
if ($param = "") {
    print No arg;
} else {
    print arg: $param;
}

socket connection with perl

nobody@example.com (chenghan)

#!/usr/bin/perl use IO::Socket; $remote_host="www.ap.ntdtv.com"; $remote_port="80"; #$socket = IO::Socket::INET->new("$remote_host:$remote_port"); #print "$socket\n"; #or die "Can't connect!!: $!\n" ; $socket = IO::Socket::INET->new( Proto => ......

Perl Webmin Bug FreeBSD 8.0

nobody@example.com (linuxonlinehelp)

System FreeBSD 8.0 R3 AMD64 Webmin 1.510 Perl 5.8.9 Webmin-Log: symbol "sdbm_open" - do portupgrade -f webmin - do portupgrade -f perl - do perl-after-upgrade -f (to update all deps of Perl)

Installing Nictool On CentOS 5

nobody@example.com (thanhtungict)

What is Nictool? Nictool is a free software for managing DNS, but for download we have to register at www.nictool.com; Nictool can export from djbdns, BIND, PowerDNS. All data is stored in MySQL and can be managed over the web using a browser. This tutor ......

LWP::Simple for Perl 6, now with (partial) BasicAuth support and getstore()

nobody@example.com (cstrep)

I just pushed out another update for the LWP::Simple module for Perl 6. This time, the main work was: refactoring the code and adding unit tests for the URL parsing (that might even grow into a Perl 6 URI module adding partial basic auth support. To ......

"DebPAN", a production-grade Debian CPAN repository

nobody@example.com (cstrep)

The problem This is a proposal I came up with after talking to Gabor Szabo about his Perl Ecosystem Development proposal . One of the major "problems" we face while developing and deploying production Perl-based systems with Debian is that the state ......

REBOL にハマる

nobody@example.com (narum)

もうですね、いまさら新言語（というほど新しくはないんだけど…）に食指が伸びるような時代でもないんですが、あまりに異質だったので思わずダウンロードして電卓のサンプルを実行…ビックリしましたね。サンプルソースの怪しいまでの簡潔さとかそういうのもあるんですが、何よりも実行環境のサイズが小さく（800k）、スピードが速い。「うそだろこれー！」って感じでした。作者のカール・サセンラスは、Wikipedia で調べたところ Amiga OS の設計者。なるほどね、軽さ第一の哲学なわけだ。もう、久々にハマる予感です ......

Dependencies suck

nobody@example.com (cstrep)

We love dependencies. For example, in the CPAN universe . They make our job so damn easier. Thousands of production quality, unit tested modules at your fingertips. But dependencies also suck really badly, for example when you're using a Linux distribu ......

-- List Free Host Part I --

nobody@example.com (softlenhan)

www.1AspHost.com ...

Perl 6 LWP::Simple gets chunked transfers support

nobody@example.com (cstrep)

With this one I think we're basically done! Perl6 LWP::Simple gets chunked transfers support . It's probably not excellent or universally working, but for the examples I could try and test, it's totally fine. If you find some URLs where it's broken, pl ......

Perl6 hacking, grammars, Digest::MD5 and caffeine levels

nobody@example.com (cstrep)

I'll be brief. Need some sleep. :) Perl 6 is here. Now. And there's an immense work waiting to be done: rewriting Perl5's CPAN. Ain't that easy? :) Anyway, during last couple of weeks, I spent most of my spare time playing with Perl 6: learning ho ......

Digest::MD5 for Perl 6 finally works!

nobody@example.com (cstrep)

It took me an awful long time, and lots of help from the folks on #parrot and #perl6 but in the end, it's done! It needs a tiny patch to Parrot , but I believe it will be added to the next parrot release. I tried to documented the fixes to the code to ......

Perl community, you have to see this

nobody@example.com (cstrep)

Since there has been a lot of discussions around "marketing" in the Perl Community, I think you should check this out. Java 4 ever trailer (from http://jz10.java.no/java-4-ever-trailer.html ) ...

Perl 6 is out! Erm... sort of

nobody@example.com (marcomarongiu)

Nota per gli Italiani: date un'occhiata all'annuncio sul sito Perl.it. OK, it is not the great day that we all Perlers are longing to see, but it's definitely a notable one. The Rakudo and Perl 6 development teams have just announced the release of Ra ......

-- List Free Host Part II --

nobody@example.com (softlenhan)

www.1AspHost.com ...

Stawberry perl forever

nobody@example.com (anibal784)

Como winDOS me cae pesado, lo putié y lo dejé. Hoy me dirijo a la página del lenguaje The Perl Programming language y voy a buscar la descarga del ejecutable que va a instalar el lenguaje más desprestigiado del mundo... perl2 . Me reí cuando llegué a la p ......

ctags 로 perl 소스분석

nobody@example.com (aanoaa)

perl -V 하면 젤 밑에 나의 @INC 가 나온다. @INC: /home/hshong/perl5/perlbrew/perls/perl-5.12.0/lib/site_perl/5.12.0/i686-linux-thread-multi /home/hshong/perl5/perlbrew/perls/perl-5.12.0/lib/site_perl/5.12.0 /home/hshong/perl5/perlbrew/perls/p ......