Re: diskutil_info handler (Was: UUID)
Re: diskutil_info handler (Was: UUID)
- Subject: Re: diskutil_info handler (Was: UUID)
- From: "Mark J. Reed" <email@hidden>
- Date: Thu, 31 Jan 2008 16:33:59 -0500
On Jan 31, 2008 4:02 PM, Skeeve <
email@hidden> wrote:
Just for the fun of it...
calling
diskutil_info("/")
will give you a record of all the information diskutil -info returns.
Handy. I would have done it with -plist, I think, rather than trying to parse the output of the non-plist form...
while (<>) {
chomp;
next if /^$/;
s/^\\s+//;
s/\\s+$//;
if (s/^(\\w[^:]+?)\\s*:\\s*//) {
$last_key= $1;
$info{ $last_key }= $_;
next;
}
$info{ $last_key }.= qq(\\n).$_ if $last_key;
That can be simplified to two regex matches instead of four:
while (<>) {
if (/^\\s*(\\w[^:]+?)\\s*:\\s*(.*?)\\s*$/)
{
$info{$last_key=$1} = $2;
next;
}
elseif ($last_key && /\S/)
{
chomp( $info{$last_key} .= qq(\\n) . $_ );
}
}
--
Mark J. Reed <
email@hidden>
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden