Formatting output with Perl?

Question

I'm running a tf2 server, and I have a simple Perl script I found that pulls back the stats of it. I need to edit the formatting of it so that cacti can read it nice and proper. The script is this:

use Rcon::HL2;

my $rcon = Rcon::HL2->new(
    hostname => "myserverhere",
    password => "omgawesomepassword",
);

When I run it, it returns:

0CPU   In    Out   Uptime  Users   FPS    Players
0.00  0.00  0.00     514     9  956.02       0

Initially, I'd like for it to just output the numbers - 0.00 0.00 0.00 514 9 956.02 0, perhaps separated by a tab or comma.

Can anyone help me out with this? I was looking around and messing with cut and sed and such but can't seem to find the right way for me to get it done. Ideally, I'd like to be able to run myscript.perl -cpu, or myscript.pl -in, etc., to return just those bits. I think if someone can show me how to manipulate the output, I can figure out the rest.

toolic · Accepted Answer · 2024-06-17 18:29:23Z

3

You can use the substitution operator (s///) to replace all whitespace with commas, for example:

use warnings;
use strict;

my $out = '0.00  0.00  0.00     514     9  956.02       0';
$out =~ s/\s+/,/g;
print "$out\n";

Output:

0.00,0.00,0.00,514,9,956.02,0

edited Jun 17, 2024 at 18:29

answered Jun 6, 2011 at 15:37

toolic

62.9k21 gold badges81 silver badges130 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

BobGneu · Accepted Answer · 2011-06-06 19:16:23Z

0

It sounds like you are trying to change a modules output format. The best way to do that is to call it from another script, so you can get it as input, then modify it as you wish. Perl has output buffering but it should probably be called output caching because it doesn't really allow you to modify the stream once it has been created.

Ex. - Inside rconhl2.pl

use Rcon::HL2;

my $rcon = Rcon::HL2->new(
    hostname => $ARGV[0],
    password => $ARGV[1],
);

...

Ex. - Inside myscript.pl

...
$var = `perl rconhl2.pl $param1 $param2`;
$var =~ s/s+/,/;
...

Something along those lines. Any module that doesnt return the string is frustrating when you need to meet a spec. Good luck though.

answered Jun 6, 2011 at 19:16

BobGneu

1,6221 gold badge20 silver badges31 bronze badges

Collectives™ on Stack Overflow

Formatting output with Perl?

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related