1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
global devices, reads, writes
/* data collection: SCSI disk */
probe module("sd_mod").function("sd_init_command") {
device=kernel_string($SCpnt->request->rq_disk->disk_name)
sector_size=$SCpnt->device->sector_size
nr_sectors=$SCpnt->request->nr_sectors
devices[device] = 1
if ($SCpnt->request->flags /* cmd_flags on some kernels */ & 1)
writes[device] <<< nr_sectors * sector_size
else
reads[device] <<< nr_sectors * sector_size
}
/* data collection: SCSI tape */
probe module("st").function("st_do_scsi") {
device=kernel_string($STp->disk->disk_name)
devices[device] = 1
if ($direction)
writes[device] <<< $bytes
else
reads[device] <<< $bytes
}
/* reporting */
global blksize=512
global hdrcount
probe timer.s($1) {
if ((hdrcount++ % 10) == 0)
printf("%9s %9s %9s %9s %9s %9s\n",
"Device:","tps","blk_read/s","blk_wrtn/s","blk_read","blk_wrtn")
foreach (dev in devices) {
rdcount=@count(reads[dev])
wrcount=@count(writes[dev])
tps=(rdcount+wrcount)*100/$1
rdblkcount=rdcount ? @sum(reads[dev])/blksize : 0
wrblkcount=wrcount ? @sum(writes[dev])/blksize : 0
rdblkrate=rdblkcount*100/$1
wrblkrate=wrblkcount*100/$1
printf("%9s %6d.%02d %6d.%02d %6d.%02d %9d %9d\n",
dev, tps/100,tps%100,
rdblkrate/100,rdblkrate%100,
wrblkrate/100,wrblkrate%100,
rdblkcount, wrblkcount)
}
printf ("\n")
delete devices
delete reads
delete writes
}
|