zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-10 14:44:32 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.200

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:44:31 +00:00
parent 068b792ce6
commit 9cb7c657c7
7 changed files with 136 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

27
learn/file_string Normal file
View file

@ -0,0 +1,27 @@
#!/usr/bin/perl -w
sub file_to_string {
my($file) = @_;
my @string;
open FILE, $file or die("$! $file");
@string = <FILE>;
close FILE;
return join("", @string);
}
use Fcntl;
sub string_to_file {
my($string, $file) = @_;
sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die("$! $file");
print FILE $string;
close FILE;
}
string_to_file("blabla $$ \n", "/tmp/imapsync_t01");
print file_to_string("/tmp/imapsync_t01");
#unlink("/tmp/imapsync_t01");