Folks,
Is there a simple way to replace one digit by two digit using sed.
Example,
mydigit1918_2006_8_8_lag1.csv should be
mydigit1918_2006_08_08_lag01.csv.
I tried this way, but doesn't work.
echo mydigit1989_2006_8_8_lag1.csv|sed 's/]/0]/'
Thank you, (5 Replies)
Hi All,
How can i convert a number 24 to 0024
In the same way how can i convert 123 to 0123?
All this has to be done inside a script
Thanks in advance
JS (6 Replies)
I have a var storing date
var=`date`
Now the date is returned as
Mon Feb 2 00:25:48 PST 2009
Is there any way to check the date field alone ("2" in above case) and if its a single digit then add a prefix 0 to it and store the result in same variable "var"
My intention in above case is... (3 Replies)
I want to create new file for START-END
but i know NO 0003/02 only one in file
Ex. Data FILE Data.txt (Data ~1,000,000 Line)
I use Script perl
perl -lne '$/="END";print $_."END" if /0003\/02/' fileOut put script perl
but I want create Out put All No in START-END have NO 0003/02 Please... (8 Replies)
I must design a UNIX script to monitor files whose size is over a threshold of 5 MB in a specific UNIX directory
I meet a problem during the for loop in my script. Some file names contain spaces.
ls -lrt | awk '$5>=5000000 && length($8)==5 {gsub(/ /,"_",$9); print};'
-rw-r--r-- 1 was61 ... (2 Replies)
I need to cut all the Strings in one file and Paste it in the another file in the Specific line by replacing the specific String. For Example
Step 1: From the newfile.txt, i need to copy all the strings
newfile.txt
How are you, I am fine, How is your work
newfle2.txt
Hello david,... (2 Replies)
The perl parser below works as expected assuming the last digit in the NC_ before the . is a single digit.
perl -ne 'next if $. == 1;
if(/.*del(+)ins(+).*NC_0{4}(+).*g\.(+)_(+)/) # indel
{
print join("\t", $3, $4, $5, $1, $2), "\n";
}
' out_position.txt > out1.txt
... (8 Replies)
i have a file with following data.
{
EqName "Tan 1"
....
....
}
{
EqName "Sin 2"
...
...
}
I have to replace the value of EqName to Tan_1 and Sin_2 in file.Can i use sed or awk ?
cat file|grep EqName|awk '{print $2 $3}'|sed -i 's//_/g'
I tried with this but it... (2 Replies)
Discussion started by: Jag02
2 Replies
LEARN ABOUT OSX
moose::cookbook::basics::recipe8
Moose::Cookbook::Basics::Recipe8(3) User Contributed Perl Documentation Moose::Cookbook::Basics::Recipe8(3)NAME
Moose::Cookbook::Basics::Recipe8 - Builder methods and lazy_build
VERSION
version 2.0205
SYNOPSIS
package BinaryTree;
use Moose;
has 'node' => (is => 'rw', isa => 'Any');
has 'parent' => (
is => 'rw',
isa => 'BinaryTree',
predicate => 'has_parent',
weak_ref => 1,
);
has 'left' => (
is => 'rw',
isa => 'BinaryTree',
predicate => 'has_left',
lazy => 1,
builder => '_build_child_tree',
);
has 'right' => (
is => 'rw',
isa => 'BinaryTree',
predicate => 'has_right',
lazy => 1,
builder => '_build_child_tree',
);
before 'right', 'left' => sub {
my ($self, $tree) = @_;
$tree->parent($self) if defined $tree;
};
sub _build_child_tree {
my $self = shift;
return BinaryTree->new( parent => $self );
}
DESCRIPTION
If you've already read Moose::Cookbook::Basics::Recipe3, then this example should look very familiar. In fact, all we've done here is
replace the attribute's "default" parameter with a "builder".
In this particular case, the "default" and "builder" options act in exactly the same way. When the "left" or "right" attribute is read,
Moose calls the builder method to initialize the attribute.
Note that Moose calls the builder method on the object which has the attribute. Here's an example:
my $tree = BinaryTree->new();
my $left = $tree->left();
When "$tree->left()" is called, Moose calls "$tree->_build_child_tree()" in order to populate the "left" attribute. If we had passed "left"
to the original constructor, the builder would not be called.
There are some differences between "default" and "builder". Notably, a builder is subclassable, and can be composed from a role. See
Moose::Manual::Attributes for more details.
The lazy_build shortcut
The "lazy_build" attribute option can be used as sugar to specify a whole set of attribute options at once:
has 'animal' => (
is => 'ro',
isa => 'Animal',
lazy_build => 1,
);
This is a shorthand for:
has 'animal' => (
is => 'ro',
isa => 'Animal',
required => 1,
lazy => 1,
builder => '_build_animal',
predicate => 'has_animal',
clearer => 'clear_animal',
);
If your attribute starts with an underscore, Moose is smart and will do the right thing with the "predicate" and "clearer", making them
both start with an underscore. The "builder" method always starts with an underscore.
You can read more about "lazy_build" in Moose::Meta::Attribute
CONCLUSION
The "builder" option is a more OO-friendly version of the "default" functionality. It also separates the default-generating code into a
well-defined method. Sprinkling your attribute definitions with anonymous subroutines can be quite ugly and hard to follow.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Infinity Interactive, Inc..
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.5 2011-09-06 Moose::Cookbook::Basics::Recipe8(3)