I am running a perl script on a brand new linux box and I've executed it three times and all three times the OS has rebooted mid way through the script.
I've ran the script successfully on a 10 record file and it works but the file I need to run it on is 192MM records and 1109 bytes long...
Because of the end users. I'm aware that a formula of:
=SUMPRODUCT(--($A1=$A$1:$A$65535))
Gives me the count I'm looking for and I could then sort, but I would prefer to have a macro that the end user just runs and is possibly prompted for the column that they want to sort.
I'm looking for an Excel macro that will sort a column and bring the duplicates to the top. For example...
Worksheet before macro...
ID
1
1
1
4
2
3
5
4
3
5
Worksheet after macro...
ID Count of ID
1 3
1 3
1 3
3 2
3 2
4 2
4 2
5 2
5 2
2 1
The sort will float the IDs with the most...
I have experiance writing base SAS and Perl in a linux environment but I'm looking to expand my knowledge into something different. I want to learn how to create windows applications and with so many OOP languanges out there I'm not really sure which to start with...C++, C#, Visual Basic, Ruby...
I'm trying to create a perl script that creates a sql script to load a table to a database based on a CSV file that's passed to perl and I'm having a problem. Currently the piece of the code says:
...
open (CSV_FILE, "$csv_file") or die "Can't open $csv_file: $!";
open (SQL_FILE...
Sorry I forgot to repost and tell everybody that something about the || print REPORT was messing it up. I took that out and it worked.
On a side note I've got a new problem...
For the below statement...
foreach $file (@all_files)
{
$ftp-> get($file);
print...
I've made the change and the log file is still returning the array error...
ARRAY(0x8ccfe8c)
I'm not understanding this...it's not too complicated but for some reason it won't work.
Any other suggestions???
Thanks for continuing to look at this. The exact code is...
#!/usr/bin/perl
use Net::FTP;
my $now = localtime;
my $report_path = "/u01/home/ftp.log";
my $path = "/***/***/***/";
my $ftpdest = "***";
my $ftpuser = "***";
my $ftppass = "***";
open (REPORT, ">$report_path");
print REPORT "It...
Thanks for the reply!
Unfortunately the problem still exists and here is the new error log...
---Listing File---
for ARRAY(0x881dbc0)
---End of list---
Downloaded !!!
Any other suggestions...
Also a newbie...thanks for the quick post but I've put () after the ls and still returns nothing.
I've manually posted the files to the ftp site and can see them when I log in.
At first I thought it was a path error but the report returns the correct path when the $ftp->pwd; command is...
I'm trying to log into an ftp server to monitor for a file but when I do an ftp->ls it's not returning anything. Any help would be much appreciated.
#!/usr/bin/perl
use Net::FTP;
my $now = localtime;
my $report_path = "/u01/home/ftp.log";
my $path = "path";
my $ftpdest = "host";
my $ftpuser...
I just tried this and it just gives me the usage for the sudo command...it doesn't prompt me for a password.
The link was interesting and I might be able to use it but I'm curious what the password would be for "sudo"ing gpg.
Thanks for the response.
Hey all, I'm running this command on a linux box...
sudo -u gpg /usr/bin/gpg --homedir= /u01/home/mydir/.gnupg/ --no-tty --encrypt --recipient "RECIPIENT_KEY" < test.txt > test.txt.gpg
where RECIPIENT_KEY is the key referenced on import
I get this error...
sudo: no passwd entry for gpg!
Is...
Thanks. The key seems to have imported correctly. Is there any way to check if the key is in place?
Also when running...
sudo -u gpg /usr/bin/gpg --homedir= /u01/home/mydir/.gnupg/ --no-tty --encrypt --recipient "RECIPIENT_KEY" < test.txt > test.txt.gpg
where RECIPIENT_KEY is the key...
Hey everybody...sorry for the dumb question but I need to know how to load a pgp/gpg key to a linux server that has gpg installed. Is there a specific directory that i paste the key into...i.e.../var/, /usr/, /bin/, etc.
Any help would be great and thanks in advance.
Have a great day.
This was exactly what I was needing!!! I added an else statement to get the no matches but it worked perfectly. Thank you so much for your help. One last question...if I want to output all of the record not just the substringed portion what would I do?
Thanks again!!!
#!/usr/bin/perl -w...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.