I solicited this site earlier this week and got a good answer for a perl
Script so I made this script from what understood from the answers
But now I have a bug and I'm stump. It doesn't parse correctly the
Output it stays on the first line My $f2 and reprints in a endless loop
I'm sure there... (3 Replies)
Hello All,
I have some expression:
if (/^(\d\d\d\d\d\.\d\d\d\d\d\d)\s+(.+)$/)
{
warn "$argv0(" . __LINE__ . "): rbl2ts{$2} == '$rbl2ts{$2}' \$1==$1\n" if ($debug);
$rbl2ts{$2} = $1 if (!defined($rbl2ts{$2}) or ($1 le $rbl2ts{$2}));
warn "$argv0(" . __LINE__ . "):... (3 Replies)
Hi All,
Can you please help me interpret the following command. Which I am not able to understand. Also can you please illustrate what it is used for.
perl -pi -e 's/\015//g' text_file.dat
Regards (3 Replies)
Hi guys,
Here is the code:
my @allwords = ();
my %seen=();
foreach my $curr (@allwords) {
$seen{$curr} = 1;
}
@allwords = keys %seen;
my question is: what will @allwords now contain, or how would the entries in the @allwords array be different after this manipulation?
Thank... (3 Replies)
Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:
$files_lim =~ (/^\d*$/)
$files_lim =~ (/^\d*h$/)$files_age =~ s/h//The code where this was... (0 Replies)
Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:
$files_lim =~ (/^\d*$/)
$files_lim =~ (/^\d*h$/)
$files_age =~ s/h//
The code where... (2 Replies)
What is the difference between the two statements below?
A:
$a->{"$fruit"}->{"$color"}->{size} = $size
B:
$size = $a->{"$fruit"}->{"$color"}->{size}
Please assist. Thanks! (0 Replies)
Hi all,
I am trying to build threads which will go to localhost and list the files in given folder.
#!/usr/bin/perl
use threads;
my $t1 = threads->new(\&sub1, 1);
my $t2 = threads->new(\&sub2, 2);
push(@threads,$t1);
push(@threads,$t2);
foreach... (5 Replies)
Hi,
I need to understand below perl code, can some one advise me.
perl -MDate::Parse -e'BEGIN{$main::now=time;$main::old=(time-60*30)}' -nE'if(/^(\w+\s+\d+\s+\d+:\d+:\d+)/) {$t=str2time $1; $t > $old && $t < $now && print}' (1 Reply)
Hello,
A former sys admin placed this script on one of our boxes and it needs to be adjusted, but I'm not familiar with perl. Can someone help break this down for me? I'm particularly interested in the -mtime function. What's the time frame being referenced here.
... (5 Replies)
Discussion started by: bbbngowc
5 Replies
LEARN ABOUT DEBIAN
moosex::oneargnew
MooseX::OneArgNew(3pm) User Contributed Perl Documentation MooseX::OneArgNew(3pm)NAME
MooseX::OneArgNew - teach ->new to accept single, non-hashref arguments
VERSION
version 0.002
SYNOPSIS
In our class definition:
package Delivery;
use Moose;
with('MooseX::OneArgNew' => {
type => 'Existing::Message::Type',
init_arg => 'message',
});
has message => (isa => 'Existing::Message::Type', required => 1);
has to => (
is => 'ro',
isa => 'Str',
lazy => 1,
default => sub {
my ($self) = @_;
$self->message->get('To');
},
);
When making a message:
# The traditional way:
my $delivery = Delivery->new({ message => $message });
# or
my $delivery = Delivery->new({ message => $message, to => $to });
# With one-arg new:
my $delivery = Delivery->new($message);
DESCRIPTION
MooseX::OneArgNew lets your constructor take a single argument, which will be translated into the value for a one-entry hashref. It is a
parameterized role with two parameters:
type
The Moose type that the single argument must be for the one-arg form to work. This should be an existing type, and may be either a
string type or a MooseX::Type.
init_arg
This is the string that will be used as the key for the hashref constructed from the one-arg call to new.
WARNINGS
You can apply MooseX::OneArgNew more than once, but if more than one application's type matches a single argument to "new", the behavior is
undefined and likely to cause bugs.
It would be a very bad idea to supply a type that could accept a normal hashref of arguments to "new".
AUTHOR
Ricardo Signes <rjbs@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Ricardo Signes.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.12.3 2011-06-15 MooseX::OneArgNew(3pm)