Sponsored Content
Full Discussion: Looking into file !
Top Forums Shell Programming and Scripting Looking into file ! Post 302139099 by vgersh99 on Thursday 4th of October 2007 09:04:01 AM
Old 10-04-2007
Code:
BEGIN {
   _start=5
   _length=10
}
FNR==NR {f1[$1]=$2; next}
{
  s=substr($1, _start, _length)
  if ( s in f1)
     $1 = substr($1, 1, _start-1) f1[s] substr($1,_start+_length)
}
1

 

3 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Match list of strings in File A and compare with File B, C and write to a output file in CSV format

Hi Friends, I'm a great fan of this forum... it has helped me tone my skills in shell scripting. I have a challenge here, which I'm sure you guys would help me in achieving... File A has a list of job ids and I need to compare this with the File B (*.log) and File C (extend *.log) and copy... (6 Replies)
Discussion started by: asnandhakumar
6 Replies

2. Shell Programming and Scripting

Compare 2 text file with 1 column in each file and write mismatch data to 3rd file

Hi, I need to compare 2 text files with around 60000 rows and 1 column. I need to compare these and write the mismatch data to 3rd file. File1 - file2 = file3 wc -l file1.txt 58112 wc -l file2.txt 55260 head -5 file1.txt 101214200123 101214700300 101250030067 101214100500... (10 Replies)
Discussion started by: Divya Nochiyil
10 Replies

3. Shell Programming and Scripting

Shell script (sh file) logic to compare contents of one file with another file and output to file

Shell script logic Hi I have 2 input files like with file 1 content as (file1) "BRGTEST-242" a.txt "BRGTEST-240" a.txt "BRGTEST-219" e.txt File 2 contents as fle(2) "BRGTEST-244" a.txt "BRGTEST-244" b.txt "BRGTEST-231" c.txt "BRGTEST-231" d.txt "BRGTEST-221" e.txt I want to get... (22 Replies)
Discussion started by: pottic
22 Replies
POE::Component::IRC::Plugin::Connector(3pm)		User Contributed Perl Documentation	       POE::Component::IRC::Plugin::Connector(3pm)

NAME
POE::Component::IRC::Plugin::Connector - A PoCo-IRC plugin that deals with the messy business of staying connected to an IRC server SYNOPSIS
use POE qw(Component::IRC Component::IRC::Plugin::Connector); my $irc = POE::Component::IRC->spawn(); POE::Session->create( package_states => [ main => [ qw(_start lag_o_meter) ], ], ); $poe_kernel->run(); sub _start { my ($kernel, $heap) = @_[KERNEL ,HEAP]; $irc->yield( register => 'all' ); $heap->{connector} = POE::Component::IRC::Plugin::Connector->new(); $irc->plugin_add( 'Connector' => $heap->{connector} ); $irc->yield ( connect => { Nick => 'testbot', Server => 'someserver.com' } ); $kernel->delay( 'lag_o_meter' => 60 ); return; } sub lag_o_meter { my ($kernel,$heap) = @_[KERNEL,HEAP]; print 'Time: ' . time() . ' Lag: ' . $heap->{connector}->lag() . " "; $kernel->delay( 'lag_o_meter' => 60 ); return; } DESCRIPTION
POE::Component::IRC::Plugin::Connector is a POE::Component::IRC plugin that deals with making sure that your IRC bot stays connected to the IRC network of your choice. It implements the general algorithm as demonstrated at <http://poe.perl.org/?POE_Cookbook/IRC_Bot_Reconnecting>. METHODS
"new" Takes two optional arguments: 'delay', the frequency, in seconds, at which the plugin will ping the IRC server. Defaults to 300. 'reconnect', the time in seconds, to wait before trying to reconnect to the server. Defaults to 60. 'servers', an array reference of IRC servers to consider. Each element should be an array reference containing a server host and (optionally) a port number. The plugin will cycle through this list of servers whenever it reconnects. Returns a plugin object suitable for use in POE::Component::IRC's "plugin_add" method. "lag" Returns the current 'lag' in seconds between sending PINGs to the IRC server and getting PONG responses. Probably not likely to be wholely accurate. AUTHOR
Chris "BinGOs" Williams <chris@bingosnet.co.uk> SEE ALSO
POE::Component::IRC POE::Component::IRC::Plugin perl v5.14.2 2011-12-07 POE::Component::IRC::Plugin::Connector(3pm)
All times are GMT -4. The time now is 05:58 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy