10 More Discussions You Might Find Interesting
1. UNIX and Linux Applications
Hello All,
I'm trying to spool an oracle table data into a csv file on unix server but the complete record is not being extracted. The record is almost 1000 characters but only 100 characters are being extracted and rest of the data getting truncated.
I'm setting below options :
SET... (4 Replies)
Discussion started by: venkat_reddy
4 Replies
2. Shell Programming and Scripting
Gents,
Please can you help me.
In the range 4-24 column the values are duplicate some times and I will like to delete the fist occurrence and keep the last only. The file is not sorted and I can sorted because from column 75 to the end the file is increase by time..
I have a file like this... (10 Replies)
Discussion started by: jiam912
10 Replies
3. UNIX for Dummies Questions & Answers
HI All,
I am new to perl ,need your inputs for my better understanding.
I have 5 UNIX files ,inside which only required fields will be loaded except with junk data mentioned in double quotes .For Ex
File has below information:
Process=High
Name=Albert
Age=27 ... (8 Replies)
Discussion started by: Perlbaby
8 Replies
4. Shell Programming and Scripting
I have a log file , that keep the record of system activities , as below , now the log is appending so that it becomes very large .
"
05/01/08 Normal userA
05/01/08 Normal userB
05/02/08 Alnormal userC
"
"
10/01/08 Normal userA
10/02/08 Normal userA
"
Now I would like to keep the... (4 Replies)
Discussion started by: ust
4 Replies
5. UNIX for Dummies Questions & Answers
Hi
I have 2 files
file1
12312341231612634
34534368463786347
23472364287687263
23472357841007237
file2
12123561235176351*dhfsdhfh*2347623462*sdfjshehweu*123651235*sdgfsgfsy*23237346*
23472357841007237*defsjdf*12378234*hsdhfsdhgfsh*12837238947*dsjshgdfs*2348972348*... (1 Reply)
Discussion started by: unxusr123
1 Replies
6. Programming
Hi,
I am calling a program that greps and returns 72536 bytes of data on STDOUT, say about 7000 lines of data on STDOUT.
I use pipe from the program am calling the above program. Naturally, I execute the above program (through execl() ) throught the child process and try to read the... (4 Replies)
Discussion started by: vvaidyan
4 Replies
7. UNIX for Advanced & Expert Users
Hi Canone please provide me solution how can achieve the result below:
File1.txt
$
sweet appleŁ1
scotish
green
$
This is a test1
$
sweet mangoŁ2
asia
yellow
$
This is a test 2
$
sweet apple red (there is no pound symbol here)
germany
green (1 Reply)
Discussion started by: Aejaz
1 Replies
8. Shell Programming and Scripting
Hi All,
I need some help to complete the below script, after executing below script blank lines are coming, but i am expecting 4 digit numeric no. Please solve the issue ASAP.
function portno
{
while (true)
do
random=`echo $RANDOM | cut -c 1-4`
port=`netstat -a | grep -c $random`
... (5 Replies)
Discussion started by: sridhusha
5 Replies
9. UNIX for Dummies Questions & Answers
hi, I have a file.....
1|3|4|5|6
1|3|4|4|5
now i ahave to search for value 4 in forth field and write that output to a file.
if i do grep 4 file1 both lines are coming to output.
can somebody help me building command.
thanks and regards
sandeep (4 Replies)
Discussion started by: mahabunta
4 Replies
10. Shell Programming and Scripting
I'm using PERL on windows NT to try to run an extract of data. I have multiple zip files in multiple locations. I am extracting "*.t" from zip files and subsequently adding that file to one zip file so when the script is complete I should have one zip file with a whole bunch of ".t" files in it.
... (2 Replies)
Discussion started by: dangral
2 Replies
Gedcom::Record(3pm) User Contributed Perl Documentation Gedcom::Record(3pm)
NAME
Gedcom::Record - a module to manipulate Gedcom records
Version 1.16 - 24th April 2009
SYNOPSIS
use Gedcom::Record;
my $record = tag_record("CHIL", 2);
my @records = tag_record("CHIL");
my @recs = $record->record("birth");
my @recs = $record->record("birth", "date");
my $rec = $record->record("birth date");
my $rec = $record->record(["birth", 2], "date");
my @recs = $record->get_record("birth");
my $val = $record->get_value;
my @vals = $record->get_value("date");
my @vals = $record->get_value("birth", "date");
my $val = $record->get_value("birth date");
my $val = $record->get_value(["birth", 2], "date");
my $rec = $record->add("birth date", "1 Jan 2000");
my $rec = $record->set("birth date", "2 Jan 2000");
$self->parse($record, $grammar);
$record->collect_xrefs($callback);
my $xref = $record->resolve_xref($record->{value});
my @famc = $record->resolve $record->get_value("FAMC");
$record->resolve_xrefs($callback);
$record->unresolve_xrefs($callback);
return 0 unless $record->validate_semantics;
$record->normalise_dates($format);
$record->renumber($args);
print $record->summary, "
";
$record->delete_record($sub_record);
DESCRIPTION
A selection of subroutines to handle records in a gedcom file.
Derived from Gedcom::Item.
HASH MEMBERS
Some of the more important hash members are:
$record->{new_xref}
Used by renumber().
$record->{recursed}
Used by renumber().
METHODS
tag_record
my $record = tag_record("CHIL", 2);
my @records = tag_record("CHIL");
Get specific sub-records from the record. This function is identical to Gedcom::Item::get_item().
The arguments are the name of the tag, and optionally the count.
In scalar context, returns the sub-record, or undef if it doesn't exist. In array context, returns all sub-records matching the specified
tag.
record
my @recs = $record->record("birth");
my @recs = $record->record("birth", "date");
my $rec = $record->record("birth date");
my $rec = $record->record(["birth", 2], "date");
my @recs = $record->get_record("birth");
Retrieve a record.
The get_record() function is identical to the record() function.
In scalar context, record() returns the specified record, or undef if there is none. In list context, record() returns all the specified
records.
Records may be specified by a list of strings. Each string is either a Gedcom tag or a description. Starting from the first string in the
list, specified records are retrieved. Then from those records, records specified by the next string in the list are retrieved. This
continues until all strings from the list have been used.
In list context, all specified records are retrieved. In scalar context, only the first record is retrieved. If a record other than the
first is wanted, then instead of passing a string, a reference to an array containing the string and a count may be passed.
Instead of specifying a list of strings, it is possible to specify a single space separated string. This can make the interface nicer.
get_value
my $val = $record->get_value;
my @vals = $record->get_value("date");
my @vals = $record->get_value("birth", "date");
my $val = $record->get_value("birth date");
my $val = $record->get_value(["birth", 2], "date");
Retrieve a record's value.
If arguments are specified, record() is first called with those arguments, and the values of those records are returned.
add
my $rec = $record->add("birth date", "1 Jan 2000");
Add a new record.
Add a new record ($rec) as a sub-item of $record. Set its value to the last argument given. The first arguments may be specified as for
record(). A new record will always be created for the last argument, and for any arguments for which the count is explicitly set to zero.
If the new record does not take a value then do not supply one. This does mean that you cannot use the function with many arguments if the
last one is a scalar, but not a value. In this case either specify the last argument as ["arg", 0], or add undef as the last argument.
set
my $rec = $record->set("birth date", "2 Jan 2000");
Set the value of a record.
This is the same as add(), with the exception that a new record is not created for the last argument.
parse
$self->parse($record, $grammar);
Parse a Gedcom record.
Match a Gedcom::Record against a Gedcom::Grammar. Warn of any mismatches, and associate the Gedcom::Grammar with the Gedcom::Record as
$record->{grammar}. Do this recursively.
collect_xrefs
$record->collect_xrefs($callback);
Recursively collect all the xrefs. Called by Gedcom::collect_xrefs. $callback is not used yet.
resolve_xref
my $xref = $record->resolve_xref($value);
See Gedcom::resolve_xrefs()
resolve
my @famc = $record->resolve $record->tag_value("FAMC");
For each argument, either return it or, if it an xref, return the referenced record.
resolve_xrefs
$record->resolve_xrefs($callback);
See Gedcom::resolve_xrefs()
unresolve_xrefs
$record->unresolve_xrefs($callback);
See Gedcom::unresolve_xrefs()
validate_semantics
return 0 unless $record->validate_semantics;
Validate the semantics of the Gedcom::Record. This performs a number of consistency checks, but could do even more.
Returns true iff the Record is valid.
normalise_dates
$record->normalise_dates($format);
Change the format of all dates in the record.
See the documentation for Gedcom::normalise_dates
renumber
$record->renumber($args);
Renumber the record.
See Gedcom::renumber().
child_value
NOTE - This function is deprecated - use tag_value instead.
my $child = $record->child_value("NAME");
child_values
NOTE - This function is deprecated - use tag_value instead.
my @children = $record->child_values("CHIL");
summary
print $record->summary, "
";
Return a line of text summarising the record.
delete_record
$record->delete_record($sub_record);
Delete the specified sub-record from the record.
Access functions
All the Gedcom tag names can be used as function names. Depending on the context in which they are called, the functions return either an
array of the specified sub-items, or the first specified sub-item.
The descriptions of the tags, with spaces replaced by underscores, can also be used as function names. The function names can be of
either, or mixed case. Unless you use the tag name, in either case, or the description in lower case, the function will not be pre-
declared and you will need to qualify it or "use subs".
perl v5.14.2 2012-04-12 Gedcom::Record(3pm)