Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Pondelok, 22. júl 2024

Súbor: [Platon] / scripts / perl / large-file / large-file.pl (stiahnutie)

Revízia 1.3, Thu Oct 23 18:11:27 2003 UTC (20 years, 9 months ago) by nepto


Zmeny od 1.2: +1 -1 [lines]

Changed $Id for $Platon.

#!/usr/bin/perl -w

# 
# large-file.pl
# (c) Pixel <pixel@mandrakesoft.com> [21/8/2002]
#
# create a big file with a hole (works on ext2/ext3/xfs)
# stat on the generated file returns a *big* number
#
# $Platon: $
#

if ($#ARGV != 0) {
    print("large-file.pl - create a big file with a hole (works on ext2/ext3)\n");
    printf("Usage: %s <filename>\n", $0);
    exit 1;
}

sysopen  F, $ARGV[0], 64 | 2 or die;
sysseek  F, 1 << 31, 1 or die;
sysseek  F, 1 << 31, 1 or die;
syswrite F, ' ' or die;


Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok