Dear friends,
I have a pipe delimited file having 5 columns.
However the column no-3 is having extra new line characters as the data owing to owing , I am having issues.
Ideally my file should have only newline termination at the end of each record and not within column data of any of... (1 Reply)
This is my input file with extra information in the HEADER and leading & trailing SPACES between PIPE delimiter.
02/04/2010 Dynamic List Display 1
--------------------------------------------------------------------------------------... (6 Replies)
HI all,
I have a simple challenge for you.. I have the following pipe delimited file
2345|98|1809||x|969|0
2345|98|0809||y|0|537
2345|97|9809||x|544|0
2345|97|0909||y|0|651
9685|98|7809||x|321|0
9685|98|7909||y|0|357
9685|98|7809||x|687|0
9685|98|0809||y|0|234
2315|98|0809||x|564|0
... (2 Replies)
I have a file which was pipe delimited, I need to make it tab delimited. I tried with sed but no use
cat file | sed 's/|//t/g'
The above command substituted "/t" not tab in the place of pipe.
Sample file:
abc|123|2012-01-30|2012-04-28|xyz
have to convert to:
abc 123... (6 Replies)
Hi friends,
I have a file where I should search for a string and get the rest of the line but without the delimiter using awk.
for example I have the series of string in a file:
input_string.txt
bbb
ccc
aaa
and the mapping file looks like this.
mapping.txt
aaa|12
bbb|23
ccc|43... (11 Replies)
Hi,
I am trying to find the lines in a pipe delimited file where 11th column has not null values. Any help is appreciated. Need help asap please.
thanks in advance. (3 Replies)
I have file as below
column1|column2|column3|column4|column5|
fill1|fill2|fill3|fill4|fill5|
abc1|abc2|abc3|abc4|abc5|
.
.
.
.
i need to remove column2,3, from that file
column1|column4|column5|
fill1|fill4|fill5|
abc1|abc4|abc5|
.
.
. (3 Replies)
Hi some one please help me to remove duplicates from a pipe delimited file based on first two columns.
123|asdf|sfsd|qwrer
431|yui|qwer|opws
123|asdf|pol|njio
Here My first record and last record are duplicates.As per my requirement I want all the latest records into one file.
I want the... (12 Replies)
Thank you for 4 looking this post.
We have a tab delimited file where we are facing problem in a lot of funny character. I have tried using awk but failed that is not working.
In the 5th field ID which is supposed to be a integer only of that file, we are getting corrupted data as below.
I... (12 Replies)
Hi, I have a rquirement in unix as below .
I have a text file with me seperated by | symbol and i need to generate a excel file through unix commands/script so that each value will go to each column.
ex:
Input Text file:
1|A|apple
2|B|bottle
excel file to be generated as output as... (9 Replies)
Discussion started by: raja kakitapall
9 Replies
LEARN ABOUT DEBIAN
ropkg::object
RoPkg::Object(3pm) User Contributed Perl Documentation RoPkg::Object(3pm)NAME
RoPkg::Object
VERSION
0.3.2
DESCRIPTION
RoPkg::Object is a general pourpose module, designed for Get/Set objects on which you don't want to spend your time writing annoying
Get/Set methods. The primary use of the module is to be a base class.
SYNOPSIS
package RoPkg::Person;
use strict;
use warnings;
use RoPkg::Object;
use base qw(RoPkg::Object);
$pf = {
FirstName => 'A person first name',
LastName => 'A person last name'
};
sub new {
my ($class, %opt) = @_;
my $self;
$self = $class->SUPER::new(%opt);
$self->{methods} = $pf;
$self->_inject();
return $self;
}
1;
tester.pl
#!/usr/bin/perl
use strict;
use warnings;
use English qw(-no_match_vars);
use RoPkg::Person;
sub main {
my $p = new RoPkg::Person();
$p->FirstName('John');
$p->LastName('Doe');
print $p->FirstName,' ',$p->LastName,$RS;
}
main();
SUBROUTINES /METHODS
All methods (besides new()) raise OutsiteClass exception if called outside a class instance. Each method, may raise other exceptions.
Please read the documentation of that method for aditional information.
new()
The class contructor. At this moment the constructor does nothing (besides bless).
key($value)
Search into methods list for a entry those value is $value. Returns the method name or 0 if such a method was not found.
methods()
In list context this method will return a list of method names. In scalar context returns just the number of methods. Please note that only
the valid methods are considered (tested with can($method_name)).
chkp(@plist)
Check the current object if the parameters specified in the list are defined. If a parameter is not defined a Param::Missing exception is
raised.
SUBCLASSING
As said before, this module is specially used as a base class for those objects with many SET/GET methods. How can you use this class in
your project ? As seen in the SYNOPSIS, when you create the new class, in the class constructor you call for $self->_inject method, who
create (at runtime) the new methods. The list of methods who are gonna be created is actually a hash reference. A method can be specified
like this:
FirstName => q{-}
This means, that _inject will create a get/set method named FirstName. There are some key values with special meaning:
*) __exclude__ - the method with this value will not be created by _inject
*) q{} - the method with this value will not be created by _inject
If a existing method is available in the class and is also included in the list of methods who will be created by _inject, that method will
be ignored by _inject. Each method created by _inject() has the following code:
sub {
my ($self, $pval) = @_;
if ( !blessed($self) ) {
OutsideClass->throw('Called outside class instance');
}
if ( defined $pval) {
$self->{$method_name} = $pval;
}
return $self->{$method_name};
};
DEPENDENCIES
RoPkg::Object require perl 5.008 or later and the Scalar::Util module. To run the tests you also need:
*) Test::More
*) Test::Pod
*) Test::Pod::Coverage
DIAGNOSTICS
This module is subject of tests. To run those tests, unpack the source and use the following command: make test
CONFIGURATION AND ENVIRONMENT
This module does not use any configuration file or environment variables.
INCOMPATIBILITIES
None known to the author
BUGS AND LIMITATIONS
No known bugs. If you find one please send a detailed report to me. Please note that the methods are not automatically created. One must
manual call (inside the child object) the method who "injects" the new methods.
PERL CRITIC
This module is perl critic level 1 compliant with 2 exceptions.
AUTHOR
Subredu Manuel <diablo@iasi.roedu.net>
LICENSE AND COPYRIGHT
Copyright (C) 2005 Subredu Manuel. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the
same terms as Perl itself. The LICENSE file contains the full text of the license.
perl v5.8.8 2006-06-09 RoPkg::Object(3pm)