Help to change the file with "sed" and "awk"

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Bash script - Print an ascii file using specific font "Latin Modern Mono 12" "regular" "9"

Hello. System : opensuse leap 42.3 I have a bash script that build a text file. I would like the last command doing : print_cmd -o page-left=43 -o page-right=22 -o page-top=28 -o page-bottom=43 -o font=LatinModernMono12:regular:9 some_file.txt where : print_cmd ::= some printing...

2. UNIX for Dummies Questions & Answers

Using "mailx" command to read "to" and "cc" email addreses from input file

How to use "mailx" command to do e-mail reading the input file containing email address, where column 1 has name and column 2 containing �To� e-mail address and column 3 contains �cc� e-mail address to include with same email. Sample input file, email.txt Below is an sample code where...

3. Shell Programming and Scripting

Find lines with "A" then change "E" to "X" same line

I have a bunch of random character lines like ABCEDFG. I want to find all lines with "A" and then change any "E" to "X" in the same line. ALL lines with "A" will have an "X" somewhere in it. I have tried sed awk and vi editor. I get close, not quite there. I know someone has already solved this...

4. Shell Programming and Scripting

Awk,sed : change every 2nd field ":" to "|"

Hi Experts, I have a string with colon delimited, want 2nd colon to be changed to a pipe. data: 101:8:43:4:72:14:41:69:85:3:137:4:3:0:4:0:9:3:0:3:12:3: I am trying with sed, but can change only 1 occurance: echo "101:8:43:4:72:14:41:69:85:3:137:4:3:0:4:0:9:3:0:3:12:3:" | sed 's/:/|/2'...

5. Post Here to Contact Site Administrators and Moderators

Suggestion: adding two new groups "sed" and "awk"

Majority of the questions are pertaining file/string parsing w.r.t sed or awk It would be nice to have these two as their own sub category under shell-programming-scripting which can avoid lot of duplicate posts.

6. Shell Programming and Scripting

how to use "cut" or "awk" or "sed" to remove a string

logs: "/home/abc/public_html/index.php" "/home/abc/public_html/index.php" "/home/xyz/public_html/index.php" "/home/xyz/public_html/index.php" "/home/xyz/public_html/index.php" how to use "cut" or "awk" or "sed" to get the following result: abc abc xyz xyz xyz

7. Shell Programming and Scripting

awk command to replace ";" with "|" and ""|" at diferent places in line of file

Hi, I have line in input file as below: 3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL My expected output for line in the file must be : "1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL" Can someone...

8. Shell Programming and Scripting

Simplify Bash Script Using "sed" Or "awk"

Input file: 2 aux003.net3.com error12 6 awn0117.net1.com error13 84 aux008 error14 29 aux001.ha.ux.isd.com error12 209 aux002.vm.ux.isd.com error34 21 alx0027.vm.net2.com error12 227 dux001.net5.com error123 22 us008.dot.net2.com error121 13 us009.net2.com error129Expected Output: 2...

9. Shell Programming and Scripting

cat $como_file | awk /^~/'{print $1","$2","$3","$4}' | sed -e 's/~//g'

hi All, cat file_name | awk /^~/'{print $1","$2","$3","$4}' | sed -e 's/~//g' Can this be done by using sed or awk alone

10. UNIX for Dummies Questions & Answers

Explain the line "mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`"

Hi Friends, Can any of you explain me about the below line of code? mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'` Im not able to understand, what exactly it is doing :confused: Any help would be useful for me. Lokesha

LEARN ABOUT DEBIAN

modperl::code

ModPerl::Code(3pm)					User Contributed Perl Documentation					ModPerl::Code(3pm)

NAME

       $class::Const - Perl Interface for $class Constants

SYNOPSIS

CONSTANTS

       EOF

	       my $groups = $data{$class};
	       for my $group (sort keys %$groups) {
		   print $fh <<"EOF";

   ":$group"
	 use $class::Const -compile qw(:$group);

       The ":$group" group is for XXX constants.

       EOF

		   for my $const (sort @{ $groups->{$group} }) {
		       print $fh "=head3 C<$class::$const>


";
		   }
	       }

	       print $fh "=cut
";
	   }
       }

       sub generate_constants_lookup_doc {
	   my ($data) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       my $constants = [map { @$_ } values %$groups];

	       constants_lookup_code_doc($constants, $class, $data);
	   }
       }

       sub generate_constants_group_lookup_doc {
	   my ($data) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       constants_group_lookup_code_doc($class, $groups, $data);
	   }
       }

       sub constants_group_lookup_code_doc {
	   my ($class, $groups, $data) = @_;
	   my @tags;
	   my @code;

	   while (my ($group, $constants) = each %$groups) {
	       $data->{$class}{$group} = [
		   map {
		       my @ifdef = constants_ifdef($_);
		       s/^($constant_prefixes)_?//o;
		       $seen_const{$class}{$_}++;
		       $_;
		   } @$constants
	       ];
	   }
       }

       sub constants_lookup_code_doc {
	   my ($constants, $class, $data) = @_;

	   my (%switch, %alias);

	   %alias = %shortcuts;

	   my $postfix = lc $class;
	   my $package = $class . '::';
	   my $package_len = length $package;

	   my $func = canon_func(qw(constants lookup), $postfix);

	   for (@$constants) {
	       if (s/^($constant_prefixes)(_)?//o) {
		   $alias{$_} = join $2 || "", $1, $_;
	       }
	       else {
		   $alias{$_} ||= $_;
	       }
	       next unless /^([A-Z])/;
	       push @{ $switch{$1} }, $_;
	   }

	   for my $key (sort keys %switch) {
	       my $names = $switch{$key};
	       for my $name (@$names) {
		   my @ifdef = constants_ifdef($alias{$name});
		   push @{ $data->{$class}{other} }, $name
		       unless $seen_const{$class}{$name}
	       }
	   }
       }

       sub generate_exports {
	   my ($self, $c_fh) = @_;
	   require ModPerl::WrapXS;
	   ModPerl::WrapXS->generate_exports($c_fh); }

       # src/modules/perl/*.c files needed to build APR/APR::* outside # of mod_perl.so sub src_apr_ext {
	   return map { "modperl_$_" } (qw(error bucket),
					 map { "common_$_" } qw(util log)); }

       1; __END__

NAME

       ModPerl::Code - Generate mod_perl glue code

SYNOPSIS

	 use ModPerl::Code ();
	 my $code = ModPerl::Code->new;
	 $code->generate;

DESCRIPTION

       This module provides functionality for generating mod_perl glue code.  Reason this code is generated rather than written by hand include:

       consistency
       thin and clean glue code
       enable/disable features (without #ifdefs)
       adapt to changes in Apache
       experiment with different approaches to gluing

AUTHOR

       Doug MacEachern

perl v5.14.2							    2011-02-08							ModPerl::Code(3pm)

Shell Programming and Scripting