SolHai Haile wrote:
> Hi All,
> I need to read mac address and program into a device:
> Example:
>
> my @mac = "00:14:85:50:A3:CF";
> while (<@mac>)
> {
> my ($oct0,$oct1,$oct2,$oct3,$oct4,$oct5) = split /:/,$_;
>
> }
> 1. How do I convert $oct0..$oct5 to hex
> $oct0 = 0x00, $oct1=0x14, .
Try this:
use strict;
use warnings;
my $mac="00:14:85:50:A3:CF";
my @mac_address_fields = split(/:/,$mac);
foreach my $field (@mac_address_fields)
{
$field = chr(hex($field));
}
my $final_mac = join("", @mac_address_fields);
You now have the mac address in the appropriate format (I presume
Hi All,
I need to read mac address and program into a device:
Example:
my @mac = "00:14:85:50:A3:CF";
while (<@mac>)
{
my ($oct0,$oct1,$oct2,$oct3,$oct4,$oct5) = split /:/,$_;
}
1. How do I convert $oct0..$oct5 to hex
$oct0 = 0x00, $oct1=0x14, .., $oct5 = 0xcf
The problem is I need t
Sorry, I guess I misunderstood. I've been really busy lately, but I
might have a chance to look closer tonight. Maybe a second set of eyes
will turn something up.
-Original Message-
From: Giuoco, Aaron [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 18, 2006 1:01 PM
To: Timothy Johnson; p
Yes, I know that. I am using File::Find to recursively traverse the directory
tree. My script is touching every file and folder, it's just not deleting the
ACEs for any of the files/folders it touches.
AG
From: Timothy Johnson [mailto:[EMAIL PROTECTED]
Sen
ACLs don't automatically update when their parent is updated unless
certain APIs are used (see
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q266461&; and
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/secauth
z/security/setsecurityinfo.asp).
If you want to propagate t
Well, I still don't know what I am doing wrong. I have stripped my anon sub
down to the basics and it's still not deleting the ACEs. Here is my modified
anon sub:
$acl->deleteAces( sub {
my $strsid = Win32::Security::SID::ConvertSidToStringSid($_->sid());
if ($strsid =~ /[MyRegEx]/) {
ret
