First, please use [code][/code] tags for sources, code/output listings, ...
Second, [A-Za-z0-9_] has it's own character class in Perl, \w
Third, if you want to match a literal dot, escape it, otherwise it'll match any character
Fourth, if you want to match something, don't run substitution on it.
Fifth, use appropriate logic. In your example the regex matches, but your logic says it's invalid.
Hey guys, I'm just messing around with a perl webpage. The idea is to make a simple validation form that will later insert a record into my DVD database. it's all very basic at the moment, and I worked up my script from the form validation example I found on this website:... (5 Replies)
Hi All,
I am new to UNIX scripting.
I need to validate a file. I need to check whether the file has a header , detail records and footer.
If all the file is good I need to create a status file with the status 'Y' else 'N'.
I have pasted the an example of the file below:
... (5 Replies)
Hi All,
I am doing a perl script validation for Phone numbers.
The normal phone number format is 01-32145.
I need to do two validations for the phone number
1) A valid phone number can have at least two digits as prefix and at least five digits as postfix. e.g. 01-01011
2) A... (5 Replies)
Hi All,
I am trying to validate the file name against the naming convention mentioned in configuration file. In the configuration file, the file name convention is mentioned as:
Myfile_SQ<NN>_<NN>_YYYYMMDD_HHMMSS.xml
The actual file received is Myfile_SQ10_30_20110423_073002.xml
How do... (1 Reply)
Hello,
File contains 1,3 and 5 are required columns. it's working use this command.
awk -F\| '$1 && $3 && $5' test1.txt > test2.txt
How can use this unix programming.while using runnign this scirpt,it's raising the error.
awk: ^ syntax error
#!/usr/bin/ksh
`awk -F\| '$1 &&... (3 Replies)
The Code:
#!/usr/bin/perl
use strict;
use warnings;
print "Please enter numbers, separated by commas: ";
my $data=<STDIN>; chomp $data;
my @dataset=split(/,/, $data);
my $sum = 0;
foreach my $num (@dataset) {
$sum += $num;
}
my $total_nums = scalar(@dataset);
my $mean =... (1 Reply)
Hi,
I have a script which invokes another script inside. Is there any way I can validate the script for syntax errors as well as checking if the files mentioned in the commands exist without executing it? Below is an example
Example.
=======================
Script1
#ksh
echo... (3 Replies)
Hi there,
As a part of file validation, I needed to check for delimiter count in the file.
My aim is to find, how many records have failed to have predefined numbers of delimiters in the file.
My code looks like below
i=`awk -F '|' 'NF != 2 {print NR, $0} ' ${pinb_fldr}/${pfile}DAT |... (3 Replies)
Hi All,
I just want to know how to get the executable name of the perl script as i know "$0" will give me the script name but i want to know the executable name which i got it from the script using pp command.
Regards
Raj (1 Reply)
FormValidator::Simple::Results(3pm) User Contributed Perl Documentation FormValidator::Simple::Results(3pm)NAME
FormValidator::Simple::Results - results of validation
SYNOPSIS
my $results = FormValidator::Simple->check( $req => [
name => [qw/NOT_BLANK ASCII/, [qw/LENGTH 0 10/] ],
email => [qw/NOT_BLANK EMAIL_LOOSE/, [qw/LENGTH 0 30/] ],
] );
if ( $results->has_error ) {
foreach my $key ( @{ $results->error() } ) {
foreach my $type ( @{ $results->erorr($key) } ) {
print "invalid: $key - $type
";
}
}
}
DESCRIPTION
This is for handling resuls of FormValidator::Simple's check.
This object behaves like Data::FormValidator's results object, but has some specific methods.
CHECK RESULT
has_missing
If there are missing values ( failed in validation 'NOT_BLANK' ), this method returns true.
if ( $results->has_missing ) {
...
}
has_invalid
If there are invalid values ( failed in some validations except 'NOT_BLANK' ), this method returns true.
if ( $results->has_invalid ) {
...
}
has_error
If there are missing or invalid values, this method returns true.
if ( $results->has_error ) {
...
}
success
inverse of has_error
unless ( $resuls->success ) {
...
}
ANALYZING RESULTS
missing
no argument
When you call this method with no argument, it returns keys failed 'NOT_BLANK' validation.
my $missings = $results->missing;
foreach my $missing_data ( @$missings ) {
print $missing_data, "
";
}
# -- print out, for example --
# name
# email
key When you call this method with key-name, it returnes true if the value of the key is missing.
if ( $results->missing('name') ) {
print "name is empty!
";
}
invalid
no argument
When you call this method with no argument, it returns keys that failed some validation except 'NOT_BLANK'.
my $invalids = $results->invalid;
foreach my $invalid_data ( @$invalids ) {
print $invalid_data, "
";
}
# -- print out, for example --
# name
# email
key When you call this method with key-name, it returns names of failed validation.
my $failed_validations = $results->invalid('name');
foreach my $validation ( @$failed_validations ) {
print $validation, "
";
}
# -- print out, for example --
# ASCII
# LENGTH
key and validation-name
When you call this method with key-name, it returns false if the value has passed the validation.
if ( $results->invalid( name => 'LENGTH' ) ) {
print "name is wrong length!
";
}
error
This doesn't distinguish 'missing' and 'invalid'. You can use this like 'invalid' method, but this consider 'NOT_BLANK' same as other
validations.
my $error_keys = $results->error;
my $failed_validation = $resuls->error('name');
# this includes 'NOT_BLANK'
if ( $results->error( name => 'NOT_BLANK' ) ) {
print "name is missing!
";
}
if ( $results->error( name => 'ASCII' ) ) {
print "name should be ascii code!
";
}
SEE ALSO
FormValidator::Simple
AUTHOR
Lyo Kato <lyo.kato@gmail.com>
COPYRIGHT AND LICENSE
This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.
perl v5.14.2 2011-12-08 FormValidator::Simple::Results(3pm)