Search Results

Have you tried:
subprocess.run([ 'rsync -avzh --no-perms --delete --include=\"*sub*\" --exclude=\'*\' txt@vm5:/var/opt/at/oss/global/bt/work/ /tmp/ct' ], shell=True)
EDIT:
Changed code...

It's actually working correctly.
The !~ operator returns true if the pattern match fails.
The =~ operator returns true if the pattern match succeeds.

You may want to take note that the !...

base64 -d < inputfile > outputfile

If you don't have base64, try

openssl base64 -d < inputfile > outputfile

Which is some sort of binary file I don't recognize.

To get the pure text data...

(^|:) => the beginning of the string or a ":" character (assign to $1)
([^:]{1,3}) => followed by 1, 2 or 3 occurrences of a character other than ":" (assign to $2)
(?=:|$) => followed...

Hi,

Change the line as follows:
my $rx_var2 = (qr/^311480[*0-9a-fA-F]{11}$|^[0-9A-Fa-f]{10}
{4}$/);

instead of
my $rx_var2 = (qr/^311480[*0-9a-fA-F]{11}$/|qr/^[0-9A-Fa-f]{10}
{4}$/);

Given your explanation this should be able to do it. However, your desired output does not match what you explained.

#!/usr/bin/perl
#
use strict;
use warnings;

my @list = qw(REP045 REP095);...

The '-' is not a problem since the key is a string; what is a problem is that ' Value-1' is not the same that 'Value-1', since the the space in front counts as part of the key.

There is no...

Any time you want to quickly check if something is in a list, use a hash...

%hash=(val1 => 1, val2 => 1, val3 => 1, val6 => 1, ); # hash with unwanted items as keys and values that evaluate as...

Just a suggestion.

#!/usr/bin/perl
# digin.pl

use strict;
use warnings;

my @domains = qw(
yahoo.com
google.com
);

for my $query (@domains) {
print "$query\n";
my...

Take a look at the highlighted in red comments. Check the return of new Net::IP before assuming that it created an object. Use Net::IP::Error().

Why does it fail?
It needs another : or it will be...

Yes it's a good one.
perl -e '
require Net::IP;
$str = "2620:0:2d0:200:0:0:0:7";
$ip = new Net::IP($str, 6);
print $ip->print, "\n";
'
2620:0:2d0:200::7/128

There's more than one way to do it, in Perl. :)
The dot (".") is the string concatenation operator.


#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime) ;

my...

You need to allow the perl interpreter to interpolate perl variables.

Just try this.!


system("wget -q --no-check-certificate -O /tmp/DataFile_$TimeStamp 'https://foobar.com/html' ") ;

...

Nope. That would would imply the following:

my $group = [
'Groupname1: AEapproval
Description: group for AE approval
'
],
[
'iwov',
...