Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^2: Strange system call failure in OS X

by endor-moon (Initiate)
on Feb 18, 2013 at 15:12 UTC ( #1019350=note: print w/replies, xml ) Need Help??

in reply to Re: Strange system call failure in OS X
in thread Strange system call failure in OS X

Actually, this is the way I ended up doing these system calls due to its relative simplicity:

# Declare dependencies use File::Slurp; # Declare variables we'll be using my $name = ""; my @args = (); my $result = ""; # Set computer name based on MAC address of en0 my @entries = qx(ifconfig en0 | awk '/ether/ { gsub(":", ""); print \$ +2 }'); chomp(@entries); $name = $entries[0];

Replies are listed 'Best First'.
Re^3: Strange system call failure in OS X
by karlgoethebier (Monsignor) on Feb 18, 2013 at 20:43 UTC

    Hi endor-moon and welcome,

    After bothering myself a bit with awk (i repressed the details) i decided to take the swiss katana. I'm assuming that you just want the mac address:

    #!/usr/bin/env perl + use strict; use warnings; my $mac = ( split " ", ( qx(ifconfig en0) )[2] )[1]; print qq($mac\n); __END__ Karls-Mac-mini:monks karl$ ./ 2c:07:54:5e:3e:f0 # i faked this, really ;-)

    This works for me. Please note also that your code didn't output anything (for me).

    Btw, why do you load a module that you don't use (File::Slurp) as well as some variables (@args, $result)...or do i miss something?

    My best regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019350]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2018-03-19 05:53 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (232 votes). Check out past polls.