I have a sample comma separated file as having date data in field # 5 and field #8. Field # 4 and 7 (fields before the date field) are indicators:
This is just a sample data, the actual file may have n number of date fields.
I need to update field #5 (depending on the value in field # 4 (indicator field)) and field #8 (depending on the value in field#7) and so on as :
1. If field # 4 = 0 and field # 5 <> 0 (say data is : 991213), then append '19' to the string in field # 5 and make the final value
as : 1999-12-13. This is for years before 2000
2. If field # 4 = 0 and field # 5 = 0 (say data is : 0), then the final value as : 0001-01-01
3. If field # 4 = 1, then
a. check if field # 5 has length = 5, then (for data say: 51213), append '200' so that the final value should be 2011-12-13
b. Else, (for data say : 111213), append '20' so that the final value appears as : 2011-12-13.
Input parameters to the script :
$1 : file name
$2 , $3, ........ this depends on the number of date fields which need to be transformed.
I have written the following code:
I am able to transform the data for Field # 5 only.
Could you please suggest a better approach for this requirement such that I am able to transform the data for field # 8 as well.
Hi Friends,
I'm working on a perl script, which seems to be simpler. But I'm very new to PERL scripting.
I have a comma separated data file, from which I need to extract only the seventh field data out of available twenty fields to an array using perl.
Any help would be much appreciated.
... (17 Replies)
Hi,
i want to replace comma by space for specified field in record, i mean i want to replace the commas in the 4th field by space. and rest all is same throught the record.
the record is
16458,99,001,"RIMOUSKI, QC",418,"N",7,EST,EDT,902
16458,99,002,"CHANDLER,... (5 Replies)
Guys,
Need you help, i have a a file content that look like this.
Nokia 3330 <spaces><spaces><more spaces>+76451883874
Nokia 3610 +87467361615
so on and so forth,
- there are so many spaces in between.
- e.g.... (5 Replies)
Hello Mates,
I have one txt file having commo seperated values. I have to insert string "FALSE" in 2nd field from the end. E.G
SE18 6RN,,,,5439070,1786840,,1000002148671600,123434
Out put should be:
SE18 6RN,,,,5439070,1786840,FALSE,1000002148671600,123434
Can some one help me to... (8 Replies)
Hi all,
I have the following files types:
FileA:
100,
23,
33,
FileB:
22,
45,
78,
and i want to make
File C:
100,22
23,45
33,78
any nice suggestions for making it easy. (3 Replies)
Hello there,
I have a comma separated csv , and all the text field is wrapped by double quote. Issue is some text field contain comma as well inside double quote. so it is difficult to process.
Input in the csv file is ,
1,234,"abc,12,gh","GH234TY",34
I need output like below,... (8 Replies)
Hi,
I have a filein unix like
ABC,CDE
BCD,KHL
and the output i need is like
column1 column2
ABC,CDE ABC
ABC,CDE CDE
BCD,KHL BCD
BCD,KHL KHL. Can some body help me out?
Hi,
The code is working fine. But in my file each row does not have always 1 comma. It may... (6 Replies)
Hi,
I have a large number of files which are written as csv (comma-separated values).
Does anyone know of simple sed/awk command do achieve this?
Thanks!
---------- Post updated at 10:59 AM ---------- Previous update was at 10:54 AM ----------
Guess I asked this too soon. Found the... (0 Replies)
Hi Experts,
Please support
I have below data in file in comma seperated, but 4th column is containing comma in between numbers, bcz of which when i tried to parse the file the column 6th value(5049641141) is being removed from the file and value(222.82) in column 5 becoming value of column6.
... (3 Replies)
Discussion started by: as7951
3 Replies
LEARN ABOUT DEBIAN
class::field
Class::Field(3pm) User Contributed Perl Documentation Class::Field(3pm)NAME
Class::Field - Class Field Accessor Generator
SYNOPSIS
package Thing;
use Class::Field qw'field const';
field 'this';
field 'list' => [];
field 'map' => {};
field 'that', -init => '$self->setup_that';
field 'circular_ref' => -weaken;
const 'answer' => 42;
DESCRIPTION
Class::Field exports two subroutines, "field" and "const". These functions are used to declare fields and constants in your class.
Class::Field generates custom code for each accessor that is optimized for speed.
FUNCTIONS
o field
Defines accessor methods for a field of your class:
package Example;
use base 'Parent';
use Class::Field qw'field const';
field 'foo';
field bar => [];
sub lalala {
my $self = shift;
$self->foo(42);
push @{$self->{bar}}, $self->foo;
}
The first parameter passed to "field" is the name of the attribute being defined. Accessors can be given an optional default value.
This value will be returned if no value for the field has been set in the object.
o const
const bar => 42;
The "const" function is similar to <field> except that it is immutable. It also does not store data in the object. You probably always
want to give a "const" a default value, otherwise the generated method will be somewhat useless.
NOTE
This code was taken directly out the Spiffy module for those people who just want this functionality without using the rest of Spiffy.
AUTHOR
Ingy dA~Xt Net <ingy@cpan.org>
COPYRIGHT
Copyright (c) 2006, 2008, 2009. Ingy dA~Xt Net.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>
perl v5.10.1 2009-12-10 Class::Field(3pm)