Printing the output of an external command from a Perl script

Question

My task is to print information for the user who runs this script in the terminal
The information I need to print is the information I get from writing:

parted /dev/... print

Is there any file with the same information so I can open and print it with the perl script,
if not I really have no idea how to get a hold of info about which partition that is "boot"
and the size of each partition

Feels like I've been looking all over the internet, maybe I'm just bad at searching for the
right parameters, but I'm lost and any help is appreciated

Please, don't modify a question, ask another one.

Toto
– Toto

2012-01-24 13:46:32 +00:00
Commented Jan 24, 2012 at 13:46 — Toto
– Toto, Commented Jan 24, 2012 at 13:46

zgpmax · Accepted Answer · 2012-01-23 12:40:23Z

5

You could run the command and capture the output

open my $cmd, '-|', 'parted', '/dev/...', 'print' || die "Can't run command: $!";

while (<$cmd>) {
    # do something with $_, e.g.
    print;
}

close $cmd || die "Error while closing off command: $!";

answered Jan 23, 2012 at 12:40

zgpmax

2,85517 silver badges23 bronze badges

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

Comments

Zaid · Accepted Answer · 2012-01-23 12:53:26Z

3

That's what backticks (`) are for:

print `parted /dev/... print`;

print qx(parted /dev/... print);     # Another way to do it

my $output = `parted /dev/... print`;  # Save to variable

...

print $fh $output;   # Use later

See perldoc perlop for more information.

edited Jan 23, 2012 at 12:53

answered Jan 23, 2012 at 12:43

Zaid

37.2k16 gold badges89 silver badges159 bronze badges

Collectives™ on Stack Overflow

Printing the output of an external command from a Perl script

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