10-25-2018
That depends completely upon what the other 17,000 characters are.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
Is it possible to delcare hashes in KSH the way we do it in Perl.
Like I want to declare something like:
fruits="Juicy"
fruits="healthy"
fruits="sour"
echo fruits
Ofcourse this piece of code does not work in KSH. Please let me know if there is a way of doing it in KSH.
... (2 Replies)
Discussion started by: tipsy
2 Replies
2. Shell Programming and Scripting
Any clue to write something to a particular location in Perl?
Suppose
$line = ‘abc cde 1234”
How to write ( example string "test") on location 4 without parsing the whole line.
Output should be $line = ‘abctest 1234”
this is not search and replace. just to add substring into... (3 Replies)
Discussion started by: jaivipin
3 Replies
3. UNIX for Dummies Questions & Answers
Let's assume that I have a file with contents delimited by pipe:
"The mouse|ran up|the|clock"
"May|had a|little|lamb"
How would I use 'substr' to get the 3rd field. For example, "the" from the first line, and "little" from the second line?
# Loop over a file and read $LINE {
... (2 Replies)
Discussion started by: ChicagoBlues
2 Replies
4. UNIX for Dummies Questions & Answers
Hi friends,
I have written a perl code and it works fine but I am not sure tommorow it works or not, please help me.
problem : When diff is 1 then success other than its failure but tomorrow its 20090401 and the enddate is 20090331. thats why I write the code this type but it does not work and... (1 Reply)
Discussion started by: tukuna82
1 Replies
5. Shell Programming and Scripting
Hi Everyone,
$tmp="20090620231013";
$tmp = substr($tmp,0,8)." ".substr($tmp,8,2).":".substr($tmp,10,2).":".substr($tmp,12,2);
So my output is:
20090620 23:10:13.
I only can think substr is easy, any perl can do this just one line very simple efficient one? :eek:
Thanks (3 Replies)
Discussion started by: jimmy_y
3 Replies
6. Shell Programming and Scripting
Hi Everyone,
# cat a.txt
a;b;c;64O
a;b;c;d;ee;f
# cat a.pl
#!/usr/bin/perl
use strict;
use warnings;
my $tmp3 = ",,a,,b,,c,,d,,e,,f,,";
open(my $FA, "a.txt") or die "$!";
while(<$FA>) {
chomp;
my @tmp=split(/\;/, $_);
if ( ($tmp =~ m/^(64O)/i) || ($tmp... (3 Replies)
Discussion started by: jimmy_y
3 Replies
7. Shell Programming and Scripting
Hi,
I have nine files looking similar to file1 & file2 below.
File1:
1 ABCA1
1 ABCC8
1 ABR:N
1 ACACB
1 ACAP2
1 ACOT1
1 ACSBG
1 ACTR1
1 ACTRT
1 ADAMT
1 AEN:N
1 AKAP1File2:
1 A4GAL
1 ACTBL
1 ACTL7 (4 Replies)
Discussion started by: seqbiologist
4 Replies
8. Shell Programming and Scripting
I want to match the number exactly from the variable which has multiple numbers seperated by pipe symbol similar to search in egrep.below is the code which i tried
#!/usr/bin/perl
my $searchnum = $ARGV;
my $num = "148|1|0|256";
print $num;
if ($searchnum =~ /$num/)
{
print "found";
}... (2 Replies)
Discussion started by: kar_333
2 Replies
9. Shell Programming and Scripting
I have a command like this:
listdb ID923 -l |gawk '{if (substr($0,37,1)==1 && NR == 3)print "YES" else if (substr ($0,37,1)==0 && NR == 3) print "NO"}'
This syntax doesn't work. But I was able to get this to work:
listdb ID923 -l |gawk '{if (substr($0,37,1)==1 && NR == 3)print "YES"}'
... (4 Replies)
Discussion started by: newbie2010
4 Replies
10. UNIX for Dummies Questions & Answers
awk '/^>/{id=$0;next}length>=7 { print id, "\n"$0}' Test.txt
Can I use substr to achieve the same task?
Thanks! (8 Replies)
Discussion started by: Xterra
8 Replies
LEARN ABOUT DEBIAN
oakdecode
oakdecode(1) General Commands Manual oakdecode(1)
NAME
oakdecode - Decode an OAKT printer stream into human readable form.
SYNOPSIS
oakdecode [options] <OAKT-file
DESCRIPTION
oakdecode decodes an OAKT printer stream into human readable form.
An OAKT printer stream is the printer langauge used by the HP Color LaserJet 1500 and other printers.
COMMAND LINE OPTIONS
These are the options that can appear on the command line.
-d basename
Basename of .pbm file for saving decompressed planes.
-r basename
Basename of .jbg file for saving raw planes
-i Suppress display of image records.
-o Print file offsets.
-D level
Set Debug level [0].
EXAMPLES
Decode an OAKT file created by foo2oak.
$ oakdecode < testpage.oak
0d(80) 1 OTHER
0c(64) Wed Nov 05 16:30:50 2003 a07d3 100005 32001e
0a(80) testpage.pdf
14(16) (no args)
28(16) Source=Tray1
29(80) PaperType=0 UNK8=2,0,0,0, blanks(63)
2a(32) Copies=1 UNK=0
2b(32) papercode=25 xwid=4648 ywid=9000 UNK=0
33(64)
u0 u1 w h resx resy nBits
x0 x0 2128 4300 600 600 x1
15(16) (no args)
bih0 w h l0 bih5 dlen plen unk yOff P subP
3c(64) 00010000 2176 256 256 58030020 1050 1056 000 64 3 0
DL = 0, D = 0, P = 1, - = 0, XY = 2176 x 256
L0 = 256, MX = 32, MY = 0
Order = 3 ILEAVE SMID
Options = 88 LRLTWO TPDON TPBON
1 stripes, 0 layers, 1 planes
3c(64) 00010000 2176 256 256 58030020 3668 3680 000 320 3 0
3c(64) 00010000 2176 256 256 58030020 1463 1472 000 640 3 0
3c(64) 00010000 2176 256 256 58030020 1975 1984 000 896 3 0
3c(64) 00010000 2176 224 224 58030020 2744 2752 000 1152 3 0
3c(64) 00010000 2176 256 256 58030020 988 992 000 1440 3 0
3c(64) 00010000 2176 256 256 58030020 2892 2896 000 1696 3 0
3c(64) 00010000 2176 256 256 58030020 3634 3648 000 1952 3 0
3c(64) 00010000 2176 256 256 58030020 3236 3248 000 2208 3 0
3c(64) 00010000 2176 256 256 58030020 2279 2288 000 2464 3 0
3c(64) 00010000 2176 256 256 58030020 3746 3760 000 2720 3 0
3c(64) 00010000 2176 200 200 58030020 2404 2416 000 2976 3 0
3c(64) 00010000 2176 256 256 58030020 3114 3120 000 3240 3 0
3c(64) 00010000 2176 96 96 58030020 1142 1152 000 3496 3 0
3c(64) 00010000 2176 256 256 58030020 2094 2112 000 3752 3 0
3c(64) 00010000 2176 256 256 58030020 1319 1328 000 4008 3 0
3c(64) 00010000 2176 36 36 58030020 208 224 000 4264 3 0
17(16) (no args)
18(16) UNK=0
0b(16) (no args)
FILES
/usr/bin/oakdecode
SEE ALSO
foo2oak-wrapper(1), foo2oak(1), jbg2pbm(1)
AUTHOR
Rick Richardson <rick.richardson@comcast.net>
http://foo2oak.rkkda.com/