Perl one liner to extract first three octets of IP Address

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl one liner to wrap comment lines

Greetings fellow scripters. I find myself editing multiple files, sometimes with the same bits of information. My bash script, a changelog, and a plist file (OS X). Once I realized this, I thought why not script part of this process (and so it begins). In any case, I've solved several of the...

2. Shell Programming and Scripting

PERL one liner

hi, I am using PERL one liner for oracle database connection as : $PERL -e "use DBI; DBI->connect(qw(DBI:Oracle:SID user passwd));" is there a way to append select statement to this connection ? i.e. DB connection and select stmt in one line ? how to do sysdba connection using one lines...

3. Shell Programming and Scripting

Delete line - Perl one liner

Hi all, I need a Perl one liner which prints a newline into a .txt file, only where the line starts with "/mediawiki-1.19.0/". It should add the newline to the line before. My problem is, when I try to realize this (with my little knowledge :rolleyes: ) i come to the point where the // are...

4. UNIX for Dummies Questions & Answers

Perl one liner to replace text

Not quite a unix question but problem in a perl command. Taking a chance if someone knows about the error cat 1 a b c d perl -p -e 's/a/b/g' 1 b b c d What is the problem here?? perl -p -i -e 's/a/b/g' 1 Can't remove 1: Text file busy, skipping file.

5. Shell Programming and Scripting

replace awk with a perl one liner (REGEXP and FS)

hello, I want to replace awk with a perl one liner in unix. i use in awk REGEX and FS ( field separator) because awk syntaxes in different unix os versions have not the same behaviour. Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse i have a file named "file" and want...

6. Shell Programming and Scripting

Replacing Awk with One-liner Perl

can someone help me translate the following command, from: /usr/bin/awk "/^$TOFDAYM $TOFDAYD /,0" $LOGFILE to something like perl -e ..... basically, i want to use perl to do awk functions within a shell script. i want to do the above awk, using perl. any suggestions?

7. Shell Programming and Scripting

Perl one-liner convert to script format problem asking

Input_file_1: ABC1 DEF11 ABC3 DEF7 ABC7 DEF36 Input_file_2: DEF7 light 23 DEF11 over 2 DEF11 over 1 DEF17 blue 0 Perl one-liner that join two input file based on columns sharing a value (In this example, column 2 in Input_file_1 and column 1 in...

8. Shell Programming and Scripting

Search & Replace regex Perl one liner to AWK one liner

Thanks for giving your time and effort to answer questions and helping newbies like me understand awk. I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk. Basically I'd like all lines with ISA sandwiched between...

9. Shell Programming and Scripting

awk/perl one-liner assist

In a ~4GB file there are lines like, 13.13.4.3 Googe.com - Jan/23/2011:00:00:00 +0000 "URL Google HTTP/1.1" 45 56 208 - "http://www.gogle.com/webhp?hl=en&tab=nw#hl=en&source=hp&biw=1366&bih=667&q=hello&aq=f&aqi=&aql=&oq=&fp=c432485467934a89" ".Net; Fox" - 13.145.3.3 Goge.com -...

10. Shell Programming and Scripting

Perl One Liner

Hi , Can anybody explain how this perl one liner works.. It is to test whether the number is prime or not perl -le 'print "PRIME" if (1 x shift) !~ /^(11+)\1+$/' 19 Thanks in advance Shihab

LEARN ABOUT MOJAVE

encode::detect::detector5.18

Encode::Detect::Detector(3)				User Contributed Perl Documentation			       Encode::Detect::Detector(3)

NAME

       Encode::Detect::Detector - Detects the encoding of data

SYNOPSIS

	 use Encode::Detect::Detector;
	 my $charset = detect($octets);

	 my $d = new Encode::Detect::Detector;
	 $d->handle($octets);
	 $d->handle($more_octets);
	 $d->end;
	 my $charset = $d->getresult;

DESCRIPTION

       This module provides an interface to Mozilla's universal charset detector, which detects the charset used to encode data.

METHODS

   $charset = Encode::Detect::Detector->detect($octets)
       Detect the charset used to encode the data in $octets and return the charset's name.  Returns undef if the charset cannot be determined
       with sufficient confidence.

   $d = Encode::Detect::Detector->new()
       Creates a new "Encode::Detect::Detector" object and returns it.

   $d->handle($octets)
       Provides an additional chunk of data to be examined by the detector.  May be called multiple times.

       Returns zero on success, nonzero if a memory allocation failed.

   $d->eof
       Informs the detector that there is no more data to be examined.	In many cases, this is necessary in order for the detector to make a
       decision on the charset.

   $d->reset
       Resets the detector to its initial state.

   $d->getresult
       Returns the name of the detected charset or "undef" if no charset has (yet) been decided upon.  May be called at any time.

SEE ALSO

       Encode::Detect

AUTHOR

       John Gardiner Myers <jgmyers@proofpoint.com>

SUPPORT

       For help and thank you notes, e-mail the author directly.  To report a bug, submit a patch, or add to the wishlist please visit the CPAN
       bug manager at: http://rt.cpan.org

perl v5.18.2							    2017-10-06					       Encode::Detect::Detector(3)

Shell Programming and Scripting