05-24-2012
I believe the first two match digits at the end of a string, the first one without h on the end, the second with h on the end. Possibly with intention of grabbing it from the $1 etc specials later.
The third deletes any 'h' characters in the string.
Without more context it's difficult to explain why they're doing that.
Especially when you could just use find.
This User Gave Thanks to Corona688 For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I solicited this site earlier this week and got a good answer for a perl
Script so I made this script from what understood from the answers
But now I have a bug and I'm stump. It doesn't parse correctly the
Output it stays on the first line My $f2 and reprints in a endless loop
I'm sure there... (3 Replies)
Discussion started by: Ex-Capsa
3 Replies
2. Shell Programming and Scripting
Hi All,
Can you please help me interpret the following command. Which I am not able to understand. Also can you please illustrate what it is used for.
perl -pi -e 's/\015//g' text_file.dat
Regards (3 Replies)
Discussion started by: rakesh.su30
3 Replies
3. Shell Programming and Scripting
Hi guys,
Here is the code:
my @allwords = ();
my %seen=();
foreach my $curr (@allwords) {
$seen{$curr} = 1;
}
@allwords = keys %seen;
my question is: what will @allwords now contain, or how would the entries in the @allwords array be different after this manipulation?
Thank... (3 Replies)
Discussion started by: 300zxmuro
3 Replies
4. Shell Programming and Scripting
can someone help me how to interpret this line?
my ($class, $hashref) = @_;
my $portfolio = {};
if ($hashref->{portfolio_id}) {
($portfolio) = GEmySQL->get ("select * from portfolio where portfolio.id=$hashref->{portfolio_id}");
}
===============
Question: how do... (2 Replies)
Discussion started by: onlinelearner02
2 Replies
5. Shell Programming and Scripting
Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:
$files_lim =~ (/^\d*$/)
$files_lim =~ (/^\d*h$/)$files_age =~ s/h//The code where this was... (0 Replies)
Discussion started by: RedSpyder
0 Replies
6. Programming
What is the difference between the two statements below?
A:
$a->{"$fruit"}->{"$color"}->{size} = $size
B:
$size = $a->{"$fruit"}->{"$color"}->{size}
Please assist. Thanks! (0 Replies)
Discussion started by: onlinelearner02
0 Replies
7. Shell Programming and Scripting
Hi all,
I am trying to build threads which will go to localhost and list the files in given folder.
#!/usr/bin/perl
use threads;
my $t1 = threads->new(\&sub1, 1);
my $t2 = threads->new(\&sub2, 2);
push(@threads,$t1);
push(@threads,$t2);
foreach... (5 Replies)
Discussion started by: PranavEcstasy
5 Replies
8. Shell Programming and Scripting
Hi,
I need to understand below perl code, can some one advise me.
perl -MDate::Parse -e'BEGIN{$main::now=time;$main::old=(time-60*30)}' -nE'if(/^(\w+\s+\d+\s+\d+:\d+:\d+)/) {$t=str2time $1; $t > $old && $t < $now && print}' (1 Reply)
Discussion started by: learnbash
1 Replies
9. Shell Programming and Scripting
Hello,
I have many folders under which there is always a file with the same name, which contains the data I need to process later. A perl oneliner was borrowed
perl -e 'print "gene_id\t", join("\t", map {/(.*)\//; $1} @ARGV),"\n";' *_test.trim/level.csvto make a header so that each column... (5 Replies)
Discussion started by: yifangt
5 Replies
10. Shell Programming and Scripting
Hello,
A former sys admin placed this script on one of our boxes and it needs to be adjusted, but I'm not familiar with perl. Can someone help break this down for me? I'm particularly interested in the -mtime function. What's the time frame being referenced here.
... (5 Replies)
Discussion started by: bbbngowc
5 Replies
LEARN ABOUT OPENDARWIN
gets
gets(n) Tcl Built-In Commands gets(n)
__________________________________________________________________________________________________________________________________________________
NAME
gets - Read a line from a channel
SYNOPSIS
gets channelId ?varName?
_________________________________________________________________
DESCRIPTION
This command reads the next line from channelId, returns everything in the line up to (but not including) the end-of-line character(s), and
discards the end-of-line character(s).
ChannelId must be an identifier for an open channel such as the Tcl standard input channel (stdin), the return value from an invocation of |
open or socket, or the result of a channel creation command provided by a Tcl extension. The channel must have been opened for input.
If varName is omitted the line is returned as the result of the command. If varName is specified then the line is placed in the variable
by that name and the return value is a count of the number of characters returned.
If end of file occurs while scanning for an end of line, the command returns whatever input is available up to the end of file. If chan-
nelId is in nonblocking mode and there is not a full line of input available, the command returns an empty string and does not consume any
input. If varName is specified and an empty string is returned in varName because of end-of-file or because of insufficient data in non-
blocking mode, then the return count is -1. Note that if varName is not specified then the end-of-file and no-full-line-available cases
can produce the same results as if there were an input line consisting only of the end-of-line character(s). The eof and fblocked commands
can be used to distinguish these three cases.
SEE ALSO
file(n), eof(n), fblocked(n), Tcl_StandardChannels(3)
KEYWORDS
blocking, channel, end of file, end of line, line, nonblocking, read
Tcl 7.5 gets(n)