01-06-2011
For find the delimiter, we don't to need analyze the full file. we read the first line of the file is enough. Which string appears maximum time that treaded as the delimter.
The above code @file contains the whole file.
$file[0] -> holds the first line of the file ( Read the array concepts )
$& -> contains the current matching ( Read the perl special variables)
$delim{$&}++ -> increase the count of the matched string ( Read the hashes concept)
This User Gave Thanks to k_manimuthu For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I am working in a ksh script.
I am reading a login, password, and database name from a pre-existing config file. Login and password are simple, I take the value after the first "=" sign, but the dbname has multiple equal signs in it. I have it working by temporarily reading the 23rd field, but... (4 Replies)
Discussion started by: prismtx
4 Replies
2. Shell Programming and Scripting
Hi,
I have a string like ABC.123.XYZ-A1-B2-P1-C4. I want to delimit the string based on "-" and then get result as only two strings. One with string till last hyphen and other with value after last hyphen... For this case, it would be something like first string as "ABC.123.XYZ-A1-B2-P1" and... (6 Replies)
Discussion started by: gupt_ash
6 Replies
3. Shell Programming and Scripting
I have a file in which the following pattern is there
TAG001^A<value>^A
I want to find all such values(words) which comes right next to "TAG001^A" and before the next "^A".
^A is the delimiter here.
Please help!
Note: I think ^A in unix resolves to \001 as delimiter (7 Replies)
Discussion started by: royzlife
7 Replies
4. Shell Programming and Scripting
Hi All,
I wanted to find 200th field value in delimiter file using awk.?
awk '{print $200}' inputfile
I am getting error message :-
awk: The field 200 must be in the range 0 to 199.
The source line number is 1.
The error context is
{print >>> $200 <<< }
using... (4 Replies)
Discussion started by: Jairaj
4 Replies
5. UNIX for Dummies Questions & Answers
Hi
I have a asterisk (*) delimited file and there are some fields which contain data having asterisk , now i want to double quote the fileds which contain data with asterisk
Ex:
input file
ID*NAME*EMAIL
1*BILL*BILL@AOL.com
2*J*OY*JOY@msn.com
in the 2nd record JOY has a asterisk value in... (11 Replies)
Discussion started by: halmstad
11 Replies
6. Shell Programming and Scripting
Hi all,
I have a number of strings like below:
//mnt/autocor/43°13'(33")W/
and i'm trying to get the numbers in this string, for example
431333
please help
thanks ahead (14 Replies)
Discussion started by: sunnydanniel
14 Replies
7. Shell Programming and Scripting
hi all,
i have a string with a number of "/"s as delimiter.
and i want everything BEFORE the last delimiter
i know to use basename to get everything after the last delimiter.
thx a lot! (2 Replies)
Discussion started by: sunnydanniel
2 Replies
8. Shell Programming and Scripting
Hi,
I have a No Delimiter variable length text file with following schema -
Column Name Data length
Firstname 5
Lastname 5
age 3
phoneno1 10
phoneno2 10
phoneno3 10
sample data - ... (16 Replies)
Discussion started by: Gaurav Martha
16 Replies
9. Shell Programming and Scripting
Hi,
Extremely new to Perl scripting, but need a quick fix without using TEXT::CSV
I need to read in a file, pass any delimiter as an argument, and convert it to bar delimited on the output. In addition, enclose fields within double quotes in case of any embedded delimiters.
Any help would... (2 Replies)
Discussion started by: JPB1977
2 Replies
10. UNIX for Beginners Questions & Answers
I need to find and replace a date format in a SQL script with sed. The original lines are like this:
ep.begin_date, ep.end_date, ep.facility_code,
AND ep.begin_date <= '01-JUL-2019'
ep.begin_date, ep.end_date, ep.facility_code,
AND ... (15 Replies)
Discussion started by: duke0001
15 Replies
LEARN ABOUT DEBIAN
validation::class::errors
Validation::Class::Errors(3pm) User Contributed Perl Documentation Validation::Class::Errors(3pm)
NAME
Validation::Class::Errors - Error Handling Object for Fields and Classes
VERSION
version 7.70
SYNOPSIS
package SomeClass;
use Validation::Class;
package main;
my $class = SomeClass->new;
...
# errors at the class-level
my $errors = $class->errors ;
print $errors->to_string;
# errors at the field-level
my $field_errors = $user->fields->{name}->{errors} ;
print $field_errors->to_string;
1;
DESCRIPTION
Validation::Class::Errors is responsible for error handling in Validation::Class derived classes on both the class and field levels
respectively.
METHODS
new
my $self = Validation::Class::Errors->new;
add
$self = $self->add("houston, we have a problem", "this isn't cool");
all
my @list = $self->all;
clear
$self = $self->clear;
count
my $count = $self->count;
each
my $list = $self->each(sub{ ucfirst lc shift });
list
my $list = $self->list;
find
my @matches = $self->find(qr/password/);
first
my $item = $self->first;
my $item = $self->first(qr/password/);
join
my $string = $self->join; # returns "an error, another error"
my $string = $self->join($delimiter);
to_string
The to_string method stringifies the errors using the specified delimiter or ", " (comma-space) by default.
my $string = $self->to_string; # returns "an error, another error"
my $string = $self->to_string($delimiter, sub { ucfirst lc shift });
AUTHOR
Al Newkirk <anewkirk@ana.io>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Al Newkirk.
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.14.2 2012-06-28 Validation::Class::Errors(3pm)