in reply to How to remove COMPRESSED attribute with Win32::File?

Probably the easiest way of compressing or decompressing files is to use the compact command via system or backticks.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."
  • Comment on Re: How to remove COMPRESSED attribute with Win32::File?

Replies are listed 'Best First'.
Re^2: How to remove COMPRESSED attribute with Win32::File?
by Anonymous Monk on Mar 06, 2009 at 13:25 UTC
    Thanks to everyone - I now have the solution! I can detect comporession using Win32::File, then remove it using compact /u . Tim
[reply]

      Did you notice that compact can take a wildcard?

      If you give it a directory name it will operate on all the files in that directory in one go which would be far quicker than discovering the files yourself and then calling the command for each file individually.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

        Sample of code to add/remove the compress attribute.

        $file_fullname="c:/temp/archiving.ini";
Win32::File::GetAttributes($file_fullname, $attr);
if ($attr & COMPRESSED)
{
    print "File is compressed. --> UnCompress \n";
    $file_fullname=&change_file_to_uncompressed($file_fullname);
}
else
{
    print "File is NOT compressed. --> Compress \n";
    $file_fullname=&change_file_to_compressed($file_fullname);
}

sub change_file_to_compressed
{
    my(@args) = @_;
    my $file_to_modify = $args[0];
    $attrib_compress= "compact /C $file_to_modify";
    qx "$attrib_compress";
}

sub change_file_to_uncompressed
{
    my(@args) = @_;
    my $file_to_modify = $args[0];
    $attrib_compress= "compact /U $file_to_modify";
    qx "$attrib_compress";
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom