Add a block of code at the end of a specific block Post: 302933057

10 More Discussions You Might Find Interesting

1. IP Networking

block telnet to specific port

Hello All I am running redhat linux 7.2 and would like to know how i can block telnetting to a specified port . say for example i would like to block telnet acesses to port 80. regards Xiamin

2. Shell Programming and Scripting

if clause in AWK END block not working.

Hello all... I have a slight problem in my awk script... I have a script which checks a csv file and keeps a count of any invalid records and then if it finds any, exits with a code of 1. problem is it dosnt seem to work properly :rolleyes: Everthing seem to work interms of the stats output,...

3. Shell Programming and Scripting

Extracting specific block

Hi Everyone , have a great day i have a file which has almost 20,000 blocks each starting with this particular line " rTCCreditControlRecord " , how can i bring out the 7172 block out of that file Thanks in Anticipation

4. Shell Programming and Scripting

array access in END block failure

Hi guys i am new to shell scripting. I wrote this script that simply searches a column value of file1 from file2. please look at the code below: awk ' FILENAME==ARGV { file_1_data=$0; next } FILENAME==ARGV { file_2_data=substr($3,1,12); next } END { ...

5. Shell Programming and Scripting

Add sth to end of each line, but only for specific files

Hi. I have a list with files, and I would like to add a variable to the end of each line of each file in this list. The files are in a folder together with a large number of other files which I don't want to change. My code is: for file in 'cat ../list' do sed 's/$/\/R:_0/' $file >>...

6. UNIX for Dummies Questions & Answers

sed - Add a variable line to the end of a block beginning with a regex

Hi, Need some help with sed. I have a file that has sections : e.g. a=blah b=blah d=blah e=blah There's many sections in the file.

7. SCO

OSR 5.0.7 need to block a specific IP

There are huge number of messages in syslog suggesting one of the client's IP is trying to telnet/ssh/pop/imap into the OSR5.0.7 system, it happens every minute or so, see a snippet below Oct 9 13:11:20 myhost popper: (null) at 192.168.1.123 (192.168.1.123): -ERR POP EOF or I/O Error: 25...

8. Shell Programming and Scripting

Define procedure in block END in awk

Hi :) Yo quisiera saber si se puede definir procedimientos dentro del bloque END. for example ... BEGIN {i=1} { if ($1 == $2) cadena = $3 } END { find_letter(cadena) } find_letter(cadena { ... }

9. Shell Programming and Scripting

Search a String between start and end of a block in a file

Hi, I have a scenario where I want to display the output based on the pattern search between the start and end of a block in a file, we can have multiple start and end blocks in a file. Example give below, we need to search between the start block abc and end block def in a file, after that...

10. Solaris

Block port for all except for one specific ip in Solaris11.4

Hi, I need to block ssh port 22 from all the servers except one server ip. Until solaris11.3 and below, I used to do like below(under /etc/ipf/ipf.conf),and it's working fine pass in quick from $server_ip to any port=22 block in quick from any to any port=22 But I tried almost same in...

LEARN ABOUT DEBIAN

sgmls::refs

Refs(3pm)						User Contributed Perl Documentation						 Refs(3pm)

NAME

       SGMLS::Refs - Forward reference handling

SYNOPSIS

	 use SGMLS::Refs;

       To create a new reference-manager object using the file "foo.refs":

	 my $refs = new SGMLS::Refs("foo.refs");

       To create a new reference-manager object using the file "foo.refs" and logging changes to the file "foo.log":

	 my $refs = new SGMLS::Refs("foo.refs","foo.log");

       To record a reference:

	 $refs->put("document title",$title);

       To retrieve a reference:

	 $title = $refs->get("document title");

       To return the number of references changed since the last run:

	 $num = $refs->changed;

       To print a LaTeX-like warning if any references have changed:

	 $refs->warn;

DESCRIPTION

       This library can be used together with the SGMLS package to keep track of forward references from one run to another, like the LaTeX ".aux"
       files.  Each reference manager is an object which reads and then rewrites a file of perl source, with the file name provided by the caller.

       Example:

	 # Start up the reference manager before the parse.
	 sgml('start', sub { $refs = new SGMLS::Refs("foo.refs"); });

	 # Warn about any changed references at the end.
	 sgml('end', sub { $refs->warn; });

	 # Look up the title from the last parse, if available.
	 sgml('<div>', sub {
	   my $element = shift;
	   my $id = $element->attribute(ID)->value;
	   my $title = $refs->get("title:$id") || "[no title available]";

	   $current_div_id = $id;

	   output "\section{$title}

";
	 });

	 # Save the title for the next parse.
	 sgml('<head>', sub { push_output('string'); });
	 sgml('</head>', sub {
	   my $title = pop_output();
	   my $id = $current_div_id;

	   $refs->put("title:$id",$title);
	 });

AUTHOR AND COPYRIGHT

       Copyright 1994 and 1995 by David Megginson, "dmeggins@aix1.uottawa.ca".	Distributed under the terms of the Gnu General Public License
       (version 2, 1991) -- see the file "COPYING" which is included in the SGMLS.pm distribution.

SEE ALSO
:
       SGMLS, SGMLS::Output.

perl v5.8.8							    2004-02-22								 Refs(3pm)

10 More Discussions You Might Find Interesting

1. IP Networking

block telnet to specific port

Discussion started by: xiamin

2. Shell Programming and Scripting

if clause in AWK END block not working.

Discussion started by: satnamx

3. Shell Programming and Scripting

Extracting specific block

Discussion started by: Dastard

4. Shell Programming and Scripting

array access in END block failure

Discussion started by: fahadaizaz