Search Results

Hi Daniel Gate,

One way using perl:

$ cat infile
..........................................................................................................................
...

Hi MIA651,

One way using perl. It prints the file name, a colon and the number of characters in last line:
$ perl -lne 'if ( eof ) { printf qq|%s: %d\n|, $ARGV, length; }' *
3.txt: 12
AAAB.txt:...

Hi Boomn4x4,

You were near. Here a code that works:

$ cat script.pl
#!/usr/bin/env perl

use warnings;
use strict;
use Data::Dumper;

my $result = <<'EOF';
Statistics 0
...

Hi sam05121988,

Beacuse your are incrementing the i counter in every line. You should do it every two lines. Otherwise you will have empty slots in the array that print that warning message. Like:...

Hi hcclnoodles,

I don't know why you could want to do that. I'm sure it is a red flag in your program. Said that, here there is one way:

$ cat script.pl ...

Are you kidding me?

I've done three diferent versions of a script to solve your problem althought your specifications were not clear since the first post. I did some effort to help you, and now...

Yes. There are many ways but the easiest one is to use a XML parser. I don't know the available tools of your server so it's your decission. But take into account that process XML data with sed or...

Hi Mr.Smith,

One way:

$ cat infile
/mediawiki-1.19.0/index.php/RickJames !!add new line here!!
/mediawiki-1.19.0/index.php/Sabaton
some url
$ perl -pe 's{\A(\Q/mediawiki-1.19.0\E)}{\n$1}'...

Not awk. But here you have one solution using XML::Twig parser in perl:

$ cat xmlfile
<root>
<Target>
<SeqNo>43156489079</SeqNo>
...

Try following solution. Now the script accepts two arguments. The first one is a file with a number per line, and the second one is the xml file:

$ cat infile
98
12
$ cat script.pl...

I don't know why you changed the text of the bottom. It's not inside <Text Id="98">. Give a try to:

$ cat script.pl ...

A solution to your problem using perl and the module XML::Twig:

$ cat infile
<root>
<Text Id="98">
<Language id="1">Su saldo es $mainAccountBalance1Tiene ademas...

Hi Ashu_099,

1.- Replace? with what?
2.- That xml file is not well formed.
3.- Show sample output to get more helpful answers.

Show us the qx command and add the following instruction just before the grep:

print "@rooms";

Where does it fail?

Hi ab52,

It's qx without quotes, like:

my @rooms = qx($ssh comand);

Hi abhi_123,

Use sed. Add it at the end of the pipe chain:

... | sed -e 's|^.*/||'

Hi anuragpgtgerman,

What is the result of

print "(($a))\n";
just before the open instruction?

Hi pioavi,

One way using perl and the module XML::Twig.

$ cat infile ...

Some questions:

1.- Has each user an <postupdate> entry?
2.- Where do you get user's data? From <mapped>, from <joined> or from anywhere else?

Hi prvnrk,

I'm afraid that you will have to be more specific. I see several names attributes with an operation of delete next to it, not only legacyExchangeDN. And where do you get all other...

eq is for comparing strings. To check regular expression use =~ without double quotes:

if ($ARGV[0] =~ m/^-(\d+)$/) { print "I think it works\n"; }

Hi D2K,

Here an example of how you can check the input argument:

$ echo "-4" | perl -nE 'm/^-(\d+)$/ and say $1 or die qq|Bad argument\n|'
4
$ echo "+-4" | perl -nE 'm/^-(\d+)$/ and say $1 or...

Hi apenkov,

Not an elaborated solution, but could work for this simple case. Try:

$ sed -n "/201209\(19\|20\|21\)/ p" infile
ABCDE_CMS.10.STOF.I_20120919_073742_P_6506.ict.zip...

Hi mikezang,

One way:

$ awk '
FNR == NR && $0 ~ /^\/\*/ {
getline codeB;
comments[ $0 ] = codeB;
next;
}

$0 ~ /^\/\*/ {
if ( $0 in...