+sub
+find_fs_uuid_of_device
+{
+ my $dev = shift || die;
+ my $blkid_output = `blkid ${dev}`;
+ # /dev/nvme0n1p5: LABEL="/" UUID="fe9c5ac8-edf4-442e-a09e-e0451606898e" BLOCK_SIZE="4096" TYPE="ext4" PARTLABEL="primary" PARTUUID="03378b79-346d-42f9-b404-44b22bc6798f"
+ if ($blkid_output =~ /UUID="([^"]+)"/) {
+ return $1;
+ }
+
+ die("Could not find fs uuid of $dev");
+}
+
+sub
+find_efi_parition
+{
+ my $uuid_in_grub_cfg = shift || die;
+ my @candidates;
+
+ my $efi_parition = undef;
+
+ for (`blkid`) {
+ if (/^([\S]+):.*TYPE="vfat"/) {
+ push(@candidates, $1);
+ }
+ }
+
+ for my $dev (@candidates) {
+ system("mount -o ro $dev /mnt");
+ if (-f '/mnt/EFI/boot/grub.cfg') {
+ open(GRUBCFG, '<', '/mnt/EFI/boot/grub.cfg') || die ("Can't open /mnt/EFI/boot/grub.cfg: $!");
+ my @lines = <GRUBCFG>;
+ for (@lines) {
+ if (/${uuid_in_grub_cfg}/) {
+ $efi_parition = $dev;
+ }
+ }
+ close(GRUBCFG);
+ }
+ system("umount /mnt");
+ last if defined $efi_parition;
+ }
+
+ die ("No efi parition found") unless defined $efi_parition;
+
+ return $efi_parition;
+}
+
+
+$root_block_device = find_root_device();
+# system("resize2fs $root_block_device");