Current Operating System

ganilmohan has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Current Operating System by Khen1950fx (Canon) on Aug 07, 2008 at 05:11 UTC
Here's a small script that will get you what you want: Re: recognizing OS.	[reply]
Re: Current Operating System by Lawliet (Curate) on Aug 07, 2008 at 05:03 UTC
`print $^O;` I am not sure how to print the distro though, if that is what you meant. `<(^.^-<) <(-^.^<) <(-^.^-)> (>^.^-)> (>-^.^)>`	[reply] [d/l] [select]
Re^2: Current Operating System by regexes (Hermit) on Aug 07, 2008 at 08:57 UTC
Hello, FYI... do be aware of the "pitfall" of $^0, i.e. it's the architecture that copy of perl was built on, not necessarily what you're running on. See Re: OS400 Pace - architecture? regexes ------------------------- Nothing in the world can take the place of persistence. Talent will not; nothing is more common than unsuccessful men with talent. Genius will not; unrewarded genius is almost a proverb. Education will not; the world is full of educated derelicts. Persistence and determination are omnipotent. The slogan "press on" has solved and always will solve the problems of the human race. -- Calvin Coolidge, 30th President of the USA.	[reply]
Re^2: Current Operating System by ganilmohan (Acolyte) on Aug 07, 2008 at 05:05 UTC
Thanks. It displays only the OS. Can I get the information along with the version as well?	[reply]
Re^3: Current Operating System by Lawliet (Curate) on Aug 07, 2008 at 05:09 UTC
By version, do you mean distro? Take a look at Idenifying the OS the perl script is runnning on `<(^.^-<) <(-^.^<) <(-^.^-)> (>^.^-)> (>-^.^)>`	[reply] [d/l]
Re^3: Current Operating System by rovf (Priest) on Aug 07, 2008 at 08:08 UTC
Can I get the information along with the version as well? If you know that you are on Solaris (as opposed to, say, Windoze), you could shell out and do a `uname -r` -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l]
Re: Current Operating System by davorg (Chancellor) on Aug 07, 2008 at 08:58 UTC
Maybe you want Devel::CheckOS. -- See the Copyright notice on my home node. "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.