I left out the dollar sign in the look up in the line I posted and also didn't explain the use of the reverse hash, you're changing it on each iteration (here's the code as also posted on Perl Monks this morning )
Code:
#!/usr/bin/perl
use warnings;
use strict;
open (my $code , "<", 'ccode.c')||die "Could not open ccode.c\n\t$!";
my %data = ('24'=>"temperature",
'25'=>"pressure",
'26'=>"humidity",
);
my %nums = ('24'=>"information1: ",
'25'=>"information2: ",
'26'=>"information3: ",
);
%data = reverse %data;
my $test_string="(" .join("|", keys %data).")" ;
while(<$code>){
if (/$test_string/){
$_=$nums{$data{$1}}.$_;
}
print $_
}
Hi Wise UNIX Crew,
I want to add 3 different columns to the file in which:
1. The first new column pulls in today's date and time
2. Second column one has a '0'
3. Third column has the word 'ANY' going down the column
If my file content is as follows:
"7","a","abc",123"... (1 Reply)
Hello,
I cant get the perl script to pull the information from
Sark DNS 4.X Options
ACL Templates=
and other=
Can someone look at the script to see why and fix it please.
FYI..Under Sark DNS 4.x ACL Templates= and other= has an indent/tab, not sure if thats the reason my the script... (24 Replies)
I need some help with adding lines to file and substitute a pattern.
Ok I have a file:
#cat names.txt
name: John Doe
stationed: 1
name: Michael Sweets
stationed: 41
.
.
.
And would like to change it to:
name: John Doe
employed
permanently
stationed: 1-office (7 Replies)
I am trying to print file information using ffmpeg tool in perl
Here is my code
use strict;
use warnings;
use IPC::Open3;
# example
my $filename = $ARGV;
my %videoInfo = videoInfo($filename);
print "duration: " . $videoInfo{'duration'} . "\n";
print "durationsecs: " .... (0 Replies)
Hi
I have a perl script that prints all the video and audio file information(playing duration).
It works fine in one of my friends linux laptop.
But it doesn't work in my both windows and linux.
My friend told me I have to do install some module ( ppm instal ...... )
but I have no... (1 Reply)
So i'm trying to write a perl script that logins into a network switch via ssh:
#sh ip traffic
IP statistics:
Rcvd: 1460119147 total, 563943377 local destination
0 format errors, 0 checksum errors, 48401998 bad hop count
0 unknown protocol, 8379279 not a gateway
... (2 Replies)
I have a file in which I need to add more columns to based on a key in the first file:
File1
key1,abc,123,
key2,def,456,
key3,ghi,789,
File2
key2,zyx,111,qqq,
key3,yuu,222,www,
key1,pui,333,eee,
key4,xxx,999,rrr,
I would like to create the following output:
Output (1 Reply)
Referring back to this thread:
Tapatalk Modification for vB3 - Issue with Avatar Icons
I mentioned that we had some "system bot" code:
In this post, I describe that code and how easy it is to create a "system bot" user for Tapatalk (TT):
Basically, its quite easy. We add a hook to... (0 Replies)
In the below perl code I am using tags within each line to extract certain information. The tags that are used are:
STB >0.8 is STRAND BIAS otherwise GOOD
FDP is the second number
GO towards the end of the line is read into an array and the value returned is outputed, in the first line that... (1 Reply)
I have an array in an external file, "array.txt", which contains:
char *testarray={"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"};I want to be able to add an element to this array, and have that element display, whenever I call it, without having to recompile... (29 Replies)
Discussion started by: ignatius
29 Replies
LEARN ABOUT DEBIAN
perlcheat
PERLCHEAT(1) Perl Programmers Reference Guide PERLCHEAT(1)NAME
perlcheat - Perl 5 Cheat Sheet
DESCRIPTION
This 'cheat sheet' is a handy reference, meant for beginning Perl programmers. Not everything is mentioned, but 195 features may already be
overwhelming.
The sheet
CONTEXTS SIGILS ref ARRAYS HASHES
void $scalar SCALAR @array %hash
scalar @array ARRAY @array[0, 2] @hash{'a', 'b'}
list %hash HASH $array[0] $hash{'a'}
&sub CODE
*glob GLOB SCALAR VALUES
FORMAT number, string, ref, glob, undef
REFERENCES
reference $$foo[1] aka $foo->[1]
$@%&* dereference $$foo{bar} aka $foo->{bar}
[] anon. arrayref ${$$foo[1]}[2] aka $foo->[1]->[2]
{} anon. hashref ${$$foo[1]}[2] aka $foo->[1][2]
() list of refs
NUMBERS vs STRINGS LINKS
OPERATOR PRECEDENCE = = perldoc.perl.org
-> + . search.cpan.org
++ -- == != eq ne cpan.org
** < > <= >= lt gt le ge pm.org
! ~ u+ u- <=> cmp p3rl.org
=~ !~ perlmonks.org
* / % x SYNTAX
+ - . foreach (LIST) { } for (a;b;c) { }
<< >> while (e) { } until (e) { }
named uops if (e) { } elsif (e) { } else { }
< > <= >= lt gt le ge unless (e) { } elsif (e) { } else { }
== != <=> eq ne cmp ~~ given (e) { when (e) {} default {} }
&
| ^ REGEX METACHARS REGEX MODIFIERS
&& ^ string begin /i case insensitive
|| // $ str end (bfr
) /m line based ^$
.. ... + one or more /s . includes
?: * zero or more /x ignore wh.space
= += -= *= etc ? zero or one /p preserve
, => {3,7} repeat in range /a ASCII /aa safe
list ops | alternation /l locale /d dual
not [] character class /u Unicode
and word boundary /e evaluate /ee rpts
or xor z string end /g global
() capture /o compile pat once
DEBUG (?:p) no capture
-MO=Deparse (?#t) comment REGEX CHARCLASSES
-MO=Terse (?=p) ZW pos ahead . [^
]
-D## (?!p) ZW neg ahead s whitespace
-d:Trace (?<=p) ZW pos behind K w word chars
(?<!p) ZW neg behind d digits
CONFIGURATION (?>p) no backtrack pP named property
perl -V:ivsize (?|p|p)branch reset h horiz.wh.space
(?&NM) cap to name R linebreak
S W D H negate
FUNCTION RETURN LISTS
stat localtime caller SPECIAL VARIABLES
0 dev 0 second 0 package $_ default variable
1 ino 1 minute 1 filename $0 program name
2 mode 2 hour 2 line $/ input separator
3 nlink 3 day 3 subroutine $ output separator
4 uid 4 month-1 4 hasargs $| autoflush
5 gid 5 year-1900 5 wantarray $! sys/libcall error
6 rdev 6 weekday 6 evaltext $@ eval error
7 size 7 yearday 7 is_require $$ process ID
8 atime 8 is_dst 8 hints $. line number
9 mtime 9 bitmask @ARGV command line args
10 ctime 10 hinthash @INC include paths
11 blksz 3..10 only @_ subroutine args
12 blcks with EXPR %ENV environment
ACKNOWLEDGEMENTS
The first version of this document appeared on Perl Monks, where several people had useful suggestions. Thank you, Perl Monks.
A special thanks to Damian Conway, who didn't only suggest important changes, but also took the time to count the number of listed features
and make a Perl 6 version to show that Perl will stay Perl.
AUTHOR
Juerd Waalboer <#####@juerd.nl>, with the help of many Perl Monks.
SEE ALSO
o <http://perlmonks.org/?node_id=216602> - the original PM post
o <http://perlmonks.org/?node_id=238031> - Damian Conway's Perl 6 version
o <http://juerd.nl/site.plp/perlcheat> - home of the Perl Cheat Sheet
perl v5.14.2 2014-09-29 PERLCHEAT(1)
10-10-2011
)