you can know the number of sequences that have J on it on each description, then you can grep the zero or write if condition grep the "0" values counter.
Code:-
Code:
gawk '
/^>/{ t=$0 ; a[t]=0 ;next}
/J/{a[t]++ }
END{ for ( i in a ) { printf "J exist in %s sequence(s) of header %s\n",a[i],i } }
' input_file
Code:
Output
J exist in 2 sequence(s) of header >description 1-blah blah blah
J exist in 1 sequence(s) of header >description 2-blah blah blah
I have a school project to create a shell program same as calendar i must create
a txt file with celebrations with vi i know this but the problem is i don't know awk
and grep.
The object of object is to create a program who read a date an appear the celebration.
Can you help me please !!!... (1 Reply)
I'm trying to take a list of domains, find out the MX resolve it to IP then find out what the NS is and output the contents to a new file.
The only problem i'm having is when checking the Ip or host of the MX i can only get it to print the column with the MX record and the results of the host... (1 Reply)
I am writing a script that ssh's out to our various servers and extracts diskspace info to generate into a report. With the mix of servers linux/solairs 8-10/AIX the easiest way is to use df -k (though I much rather prefer df -h).
I have pasted the relevant code:
dfdata=`ssh -q -o... (1 Reply)
Hello,
Please advise. Scoured this site, as well as google for answers. However if you do not know what to search for, it's a bit hard to find answers.
INPUT:
ACTASS=
802
BASECOS=
279
COSNCHG=
3
CUSCOS=
52
UPLDCOS=
2
DESIRED OUTPUT:
ACTASS=802
BASECOS=279 (13 Replies)
Hi,
I would like to know the awk command that gets the below o/p:
File contents:
Board1;9a;60;36;60.0;60;0;0.0
Board2;96;60;35;58.3;55;0;0.0
Board3;92;60;60;100.0;60;60;100.0
Used awk script:
#!/bin/awk -f
BEGIN {
FS = ";";
printf (" Device | ... (1 Reply)
Hoping for some assistance.
my source file consists of:
os, ip, username
win7, 123.56.78, john
win7, 123.56.78, paul
win7, 10.1.1.1, john
win7, 10.2.2.3, joe
I've been trying to run a script that will only return ip and username where the IP address is the same and the username is... (3 Replies)
---------- Post updated at 11:48 AM ---------- Previous update was at 11:46 AM ----------
Hello all
I have an awk code that successfully creates separate text files based on the first six letters of the second field. What it doesn't do is preserve the header into each resulting file.
... (6 Replies)
Hello there,
I am trying to get my head around the section below of a script we use that incorporates AWK and Regular Expressions.
{ match($0,"The broker*");print $1,$2,$3 ":", substr($0, RSTART,RLENGTH)}
I have a basic understanding of how match works, what I am struggling with is the... (2 Replies)
HI Folks -
I have a business need to check weather or not there are "active" sessions within a particular application I interact with prior to running any automation.
I have built a function that first exports all "sessions" from my respective application to a text file. The output is as... (2 Replies)
Hello all,
I have searched high and low for a solution to this, many have come really close but not quite what I'm after.
I have 2 files. One contains GUID's, for example:
8121E002-96FE-4C9C-BC5A-6AFF20DACECD
84468F30-F3B7-418B-81F0-0908E80792BF
A second file, contains a path to the... (8 Replies)
Discussion started by: tirmUK
8 Replies
LEARN ABOUT DEBIAN
business::creditcard
CreditCard(3pm) User Contributed Perl Documentation CreditCard(3pm)NAME
"Business::CreditCard" - Validate/generate credit card checksums/names
SYNOPSIS
use Business::CreditCard;
print validate("5276 4400 6542 1319");
print cardtype("5276 4400 6542 1319");
print generate_last_digit("5276 4400 6542 131");
Business::CreditCard is available at a CPAN site near you.
DESCRIPTION
These subroutines tell you whether a credit card number is self-consistent -- whether the last digit of the number is a valid checksum for
the preceding digits.
The validate() subroutine returns 1 if the card number provided passes the checksum test, and 0 otherwise.
The cardtype() subroutine returns a string containing the type of card. The list of possible return values is more comprehensive than it
used to be, but additions are still most welcome.
Possible return values are:
VISA card
MasterCard
Discover card
American Express card
enRoute
JCB
BankCard
Switch
Solo
China Union Pay
Laser
Unknown
"Not a credit card" is returned on obviously invalid data values.
Versions before 0.31 may also have returned "Diner's Club/Carte Blanche" (these cards are now recognized as "Discover card").
As of 0.30, cardtype() will accept a partial card masked with "x", "X', ".", "*" or "_". Only the first 2-6 digits and the length are
significant; whitespace and dashes are removed. To recognize just Visa, MasterCard and Amex, you only need the first two digits; to
recognize almost all cards except some Switch cards, you need the first four digits, and to recognize all cards including the remaining
Switch cards, you need the first six digits.
The generate_last_digit() subroutine computes and returns the last digit of the card given the preceding digits. With a 16-digit card, you
provide the first 15 digits; the subroutine returns the sixteenth.
This module does not tell you whether the number is on an actual card, only whether it might conceivably be on a real card. To verify
whether a card is real, or whether it's been stolen, or to actually process charges, you need a Merchant account. See
Business::OnlinePayment.
These subroutines will also work if you provide the arguments as numbers instead of strings, e.g. "validate(5276440065421319)".
PROCESSING AGREEMENTS
Credit card issuers have recently been forming agreements to process cards on other networks, in which one type of card is processed as
another card type.
By default, Business::CreditCard returns the type the card should be treated as in the US and Canada. You can change this to return the
type the card should be treated as in a different country by setting $Business::CreditCard::Country to your two-letter country code. This
is probably what you want to determine if you accept the card, or which merchant agreement it is processed through.
You can also set $Business::CreditCard::Country to a false value such as the empty string to return the "base" card type. This is probably
only useful for informational purposes when used along with the default type.
Here are the currently known agreements:
Most Diner's club is now identified as Discover. (This supercedes the earlier identification of some Diner's club cards as MasterCard
inside the US and Canada.)
JCB cards in the 3528-3589 range are identified as Discover inside the US and Canada.
China Union Pay cards are identified as Discover cards outside China.
NOTE ON INTENDED PURPOSE
This module is for verifying real world credit cards. It is NOT a pedantic implementation of the ISO 7812 standard, a general-purpose LUHN
implementation, or intended for use with "creditcard-like account numbers".
AUTHOR
Jon Orwant
The Perl Journal and MIT Media Lab
orwant@tpj.com
Current maintainer is Ivan Kohler <ivan-business-creditcard@420.am>. Please don't bother Jon with emails about this module.
Lee Lawrence <LeeL@aspin.co.uk>, Neale Banks <neale@lowendale.com.au> and Max Becker <Max.Becker@firstgate.com> contributed support for
additional card types. Lee also contributed a working test.pl. Alexandr Ciornii <alexchorny@gmail.com> contributed code cleanups.
COPYRIGHT AND LICENSE
Copyright (C) 1995,1996,1997 Jon Orwant Copyright (C) 2001-2006 Ivan Kohler Copyright (C) 2007-2009 Freeside Internet Services, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
SEE ALSO
Business::CreditCard::Object is a wrapper around Business::CreditCard providing an OO interface. Assistance integrating this into the base
Business::CreditCard distribution is welcome.
Business::OnlinePayment is a framework for processing online payments including modules for various payment gateways.
perl v5.10.0 2009-09-28 CreditCard(3pm)
11-15-2009
