#!/bin/bash
awk -F, -v W="day,really" '
BEGIN { split(W,w,",") ; for(i in w) N[w[i]]}
{ for(word in N) if ($1 ~ word) for(i=2;i<=NF;i++) v[word,i]+=$i }
END {
for(word in N) {
printf "%s", word
for(i=2; word SUBSEP i in v; i++)
printf ",%s", v[word,i] ((i==7||i==9||i==11)?"%":"")
printf "\n"
}
}'
just the first occurrence in each analyzed line ?
There are some duplicates in terms of final value!
Itīs possible that the same word appears in the same line more times, and i need to calculate it just one time!
Hello,
I require a perl script that will read a .txt file that contains words like
224.199.207.IN-ADDR.ARPA. IN NS NS1.internet.com.
4.200.162.207.in-addr.arpa. IN PTR beeriftw.internet.com.
arroyoeinternet.com. IN A 200.199.227.49
I want to focus on words:
IN... (23 Replies)
Hi All ,
I have different strings (SQL queries infact) of different lengths such as:
1. "SELECT XYZ FROM ABC WHERE ABC.DEF='123' "
2. "DELETE FROM ABC WHERE ABC.DEF='567'"
3. "SELECT * FROM ABC"
I need to find out the word coming after the... (1 Reply)
Hi,
I have list of directory paths in a variable and i want to delete those dirs and if dir does not exist then search that string and get the correct path from xml file after that delete the correct directory. i tried to use grep and it prints the entire line from the search.once i get the entire... (7 Replies)
My source is on each line
98.194.245.255 - - "GET /disp0201.php?poc=4060&roc=1&ps=R&ooc=13&mjv=6&mov=5&rel=5&bod=155&oxi=2&omj=5&ozn=1&dav=20&cd=&daz=&drc=&mo=&sid=&lang=EN&loc=JPN HTTP/1.1" 302 - "-" "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.0.3705; .NET CLR... (5 Replies)
Hello,
I'm almost there with scripting, and I've looked at a few examples that could help me out here. But I'm still at a lost where to start. I'm looking to parse each line in the log file below and save the output like below.
Log File
AABBCGCAT022|242|3
AABBCGCAT023|243|4... (6 Replies)
Hi Gurus
I am new to this forum.. I am using HP Unix OS.
I have one single string in input file as shown below
Abc123 | cde | fgh | ghik| lmno | Abc456 |one |two |three | four | Abc789 | five | Six | seven | eight | Abc098 | ........
I want to achive the result in a output file as shown... (3 Replies)
Hi,
I have gone through may posts and dint find exact solution for my requirement.
I have file which consists below data and same file have lot of other data.
<MAPPING DESCRIPTION ='' ISVALID ='YES' NAME='m_TASK_UPDATE' OBJECTVERSION ='1'>
<MAPPING DESCRIPTION ='' ISVALID ='NO'... (11 Replies)
Hi All,
I'm writing unix shell script and I have these files. I need to get name before _DETL.tmp.
ABC_AAA_DETL.tmp
ABC_BBB_DETL.tmp
ABC_CCC_DETL.tmp
PQR_DETL.tmp
DEF_DETL.tmp
JKL_DETL.tmp
YUI_DETL.tmp
TG_NM_DDD_DETL.tmp
TG_NM_EEE_DETL.tmp
GHJ_DETL.tmp
RTY_DETL.tmp
output will... (3 Replies)
Discussion started by: ace_friends22
3 Replies
LEARN ABOUT DEBIAN
sql::reservedwords::mysql
SQL::ReservedWords::MySQL(3pm) User Contributed Perl Documentation SQL::ReservedWords::MySQL(3pm)NAME
SQL::ReservedWords::MySQL - Reserved SQL words by MySQL
SYNOPSIS
if ( SQL::ReservedWords::MySQL->is_reserved( $word ) ) {
print "$word is a reserved MySQL word!";
}
DESCRIPTION
Determine if words are reserved by MySQL.
METHODS
is_reserved( $word )
Returns a boolean indicating if $word is reserved by either MySQL 3.2, 4.0, 4.1, 5.0 or 5.1.
is_reserved_by_mysql3( $word )
Returns a boolean indicating if $word is reserved by MySQL 3.2.
is_reserved_by_mysql4( $word )
Returns a boolean indicating if $word is reserved by either MySQL 4.0 or 4.1.
is_reserved_by_mysql5( $word )
Returns a boolean indicating if $word is reserved by either MySQL 5.0 or 5.1.
reserved_by( $word )
Returns a list with MySQL versions that reserves $word.
words
Returns a list with all reserved words.
EXPORTS
Nothing by default. Following subroutines can be exported:
is_reserved
is_reserved_by_mysql3
is_reserved_by_mysql4
is_reserved_by_mysql5
reserved_by
words
SEE ALSO
SQL::ReservedWords
<http://dev.mysql.com/doc/>
AUTHOR
Christian Hansen "chansen@cpan.org"
COPYRIGHT
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.8.8 2008-03-28 SQL::ReservedWords::MySQL(3pm)