Masanari Iida wrote:
>
> I am new to perl.
> I run following sample script, and see strace output.
> I have 2 questions.
>
> ===
> #!/usr/bin/perl
>
> use Fcntl qw/:DEFAULT :flock :seek F_GETFL/;
>
> sysopen( LOCK_FILE, "./sample.txt", O_WRONLY | O_CREAT);
>
> $PackedPattern = "ssll
Hello List,
I am new to perl.
I run following sample script, and see strace output.
I have 2 questions.
===
#!/usr/bin/perl
use Fcntl qw/:DEFAULT :flock :seek F_GETFL/;
sysopen( LOCK_FILE, "./sample.txt", O_WRONLY | O_CREAT);
$PackedPattern = "ss";
$LockInfo = pack( $PackedPatte