Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script :- Phone number validation
Top Forums Shell Programming and Scripting Perl script :- Phone number validation Post 302409512 by subin_bala on Thursday 1st of April 2010 10:47:10 AM
Old 04-01-2010
Hi Thanks for the reply...

But i am not able to put this solution to my code .(may be i am trying wrong)
so can u please help me to fit solution in my code ?

i am pasting my code part here.. can you please help me to add the second validation inside my current code.
Code:
open(TMPOUTPUT, "<$tmp_output_file") or die "Can't open output";
open(OUTPUT, ">$output_file") or die "Can't open output";

while ($line = <TMPOUTPUT>)
{
  $line =~ s/ +\n//;
  ($cur_phone, $xxxxxx, $xxxxxx) = split(";", $line);
  ($cur_phone_prefix, $cur_phone_postfix) = split("-", $cur_phone);

  $length_prefix = length ($cur_phone_prefix);
  $length_postfix = length ($cur_phone_postfix);
  if ($length_prefix < 2 || $length_postfix < 5 )
  {
    print "Invalid phone number: $cur_phone \n";
  }
  else
  {
    print "Valid phone number: $cur_phone \n";
  }
}
close TMPOUTPUT;
close OUTPUT;


Thanks in advance,
Bala
Last edited by Scott; 04-01-2010 at 01:29 PM.. Reason: Code tags, please...
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Date & NUmber Validation Query

Hi Do you have any pointers how to validate numbers (not to contain alphabets and special characters) and date(MM/DD/YYYY) format. I used following regular expression to validate integer, which is not working in the default shell: nodigits="$(echo $testvalue | sed 's/]//g')" ... (4 Replies)
Discussion started by: alok_jax
4 Replies

2. Shell Programming and Scripting

form validation with perl

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)
Discussion started by: LNC
5 Replies

3. Shell Programming and Scripting

perl linux file name validation

Hi Everyone, #!/usr/bin/perl $a = ".a!"; if ($a =~ s///g) { print "invalid file name\n"; } else { print "valid file name\n"; } but the output is: Invalid range "_-." in regex; marked by <-- HERE in m// at ./a.pl line 5. the linux file name should be A-Z, a-z,... (8 Replies)
Discussion started by: jimmy_y
8 Replies

4. Shell Programming and Scripting

perl: How to improve with minimal validation of its input??

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)
Discussion started by: 300zxmuro
1 Replies

5. Shell Programming and Scripting

count number of entries perl program or Unix script

Hi I have a file with number of entries name 1 123 name 1 345 name 1 65346 name2 3243 name2 24234 name 2 234234 so on ......... how to count total number of entries for name 1 and name2...and so on Please guide. (1 Reply)
Discussion started by: manigrover
1 Replies

6. Shell Programming and Scripting

Getting phone number, its message and assigning them into 2 variables then screen output.

Hi Everyone, I have a flatfile "inbox.txt" which contains some information: Location 0, folder "Inbox", SIM memory, Inbox folder SMS message SMSC number : "+24800000023" Sent : Sat 04 Aug 2012 09:01:00 PM +0700 Coding : Default GSM alphabet... (5 Replies)
Discussion started by: testcase
5 Replies

7. Shell Programming and Scripting

Number of arguments to array - Perl Script

I have the following proc. proc get_add {arg1 arg2 arg3 arg4 arg 5 .. ... arg N } { } i need to count the number of arguments and also i need those arguments stored in an array. please help out ---------- Post updated at 06:33 PM ---------- Previous update was at 05:30 PM ---------- ... (1 Reply)
Discussion started by: Syed Imran
1 Replies

8. Shell Programming and Scripting

Editing phone number with multiple delimiters

Hello all I have a data base of information that is formatted like so: JSD4863 XXX-XX-XXXX DOE, JOHN C JR-II BISS CPSC BS INFO TECH 412/779-9445 I need the last four digits of the phone number. However, many lines contain 'garbage data' that I'm not interested in. So i used a 'for loop'... (7 Replies)
Discussion started by: smartSometimes
7 Replies

9. Web Development

Auto phone number search

Hi. I want to search 10 phone numbers automatically in Facebook and store the result in some format. Can anyone help me with the script. I am using kali Linux. (2 Replies)
Discussion started by: looksthatmatter
2 Replies

LEARN ABOUT CENTOS

sptrfs.f

sptrfs.f(3)							      LAPACK							       sptrfs.f(3)

NAME

       sptrfs.f -

SYNOPSIS

   Functions/Subroutines
       subroutine sptrfs (N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, BERR, WORK, INFO)
	   SPTRFS

Function/Subroutine Documentation
   subroutine sptrfs (integerN, integerNRHS, real, dimension( * )D, real, dimension( * )E, real, dimension( * )DF, real, dimension( * )EF, real,
       dimension( ldb, * )B, integerLDB, real, dimension( ldx, * )X, integerLDX, real, dimension( * )FERR, real, dimension( * )BERR, real,
       dimension( * )WORK, integerINFO)
       SPTRFS

       Purpose:

	    SPTRFS improves the computed solution to a system of linear
	    equations when the coefficient matrix is symmetric positive definite
	    and tridiagonal, and provides error bounds and backward error
	    estimates for the solution.

       Parameters:
	   N

		     N is INTEGER
		     The order of the matrix A.  N >= 0.

	   NRHS

		     NRHS is INTEGER
		     The number of right hand sides, i.e., the number of columns
		     of the matrix B.  NRHS >= 0.

	   D

		     D is REAL array, dimension (N)
		     The n diagonal elements of the tridiagonal matrix A.

	   E

		     E is REAL array, dimension (N-1)
		     The (n-1) subdiagonal elements of the tridiagonal matrix A.

	   DF

		     DF is REAL array, dimension (N)
		     The n diagonal elements of the diagonal matrix D from the
		     factorization computed by SPTTRF.

	   EF

		     EF is REAL array, dimension (N-1)
		     The (n-1) subdiagonal elements of the unit bidiagonal factor
		     L from the factorization computed by SPTTRF.

	   B

		     B is REAL array, dimension (LDB,NRHS)
		     The right hand side matrix B.

	   LDB

		     LDB is INTEGER
		     The leading dimension of the array B.  LDB >= max(1,N).

	   X

		     X is REAL array, dimension (LDX,NRHS)
		     On entry, the solution matrix X, as computed by SPTTRS.
		     On exit, the improved solution matrix X.

	   LDX

		     LDX is INTEGER
		     The leading dimension of the array X.  LDX >= max(1,N).

	   FERR

		     FERR is REAL array, dimension (NRHS)
		     The forward error bound for each solution vector
		     X(j) (the j-th column of the solution matrix X).
		     If XTRUE is the true solution corresponding to X(j), FERR(j)
		     is an estimated upper bound for the magnitude of the largest
		     element in (X(j) - XTRUE) divided by the magnitude of the
		     largest element in X(j).

	   BERR

		     BERR is REAL array, dimension (NRHS)
		     The componentwise relative backward error of each solution
		     vector X(j) (i.e., the smallest relative change in
		     any element of A or B that makes X(j) an exact solution).

	   WORK

		     WORK is REAL array, dimension (2*N)

	   INFO

		     INFO is INTEGER
		     = 0:  successful exit
		     < 0:  if INFO = -i, the i-th argument had an illegal value

       Internal Parameters:

	     ITMAX is the maximum number of steps of iterative refinement.

       Author:
	   Univ. of Tennessee

	   Univ. of California Berkeley

	   Univ. of Colorado Denver

	   NAG Ltd.

       Date:
	   September 2012

       Definition at line 163 of file sptrfs.f.

Author
       Generated automatically by Doxygen for LAPACK from the source code.

Version 3.4.2							  Tue Sep 25 2012						       sptrfs.f(3)
All times are GMT -4. The time now is 10:28 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy