Re^2: My little 123.pl application...

Alrighty! Thanks. So.. how do you think I should solve that?

Also, I was wondering... is it possible to move this to "Cool Uses For Perl"? It may be more suitable there...

Comment on Re^2: My little 123.pl application...

Replies are listed 'Best First'.
Re^3: My little 123.pl application... by jwkrahn (Abbot) on Apr 23, 2006 at 00:36 UTC
Something like: `my $buffer_size = 1024; my $on = 0; while ( my $bytes_read = sysread ORGINAL, my $buffer, $buffer_size ) { defined $bytes_read or die "Cannot sysread from $filename: $!"; syswrite ENCRYPTED, $cipher->crypt( $buffer ) or die "Cannot syswr +ite to $filename.3nc: $!"; $on += $bytes_read;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: My little 123.pl application...
by jwkrahn (Abbot) on Apr 23, 2006 at 00:36 UTC

my $buffer_size = 1024;

my $on = 0;

while ( my $bytes_read = sysread ORGINAL, my $buffer, $buffer_size ) {

    defined $bytes_read or die "Cannot sysread from $filename: $!";

    syswrite ENCRYPTED, $cipher->crypt( $buffer ) or die "Cannot syswr
+ite to $filename.3nc: $!";

    $on += $bytes_read;
[download]

[reply]
[d/l]