FilesExpand file tree

master

/

convert_mindmap_to_markdown.pl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

19 lines (18 loc) · 394 Bytes

master

/

convert_mindmap_to_markdown.pl

Copy path

Top

File metadata and controls

• Code
• Blame

19 lines (18 loc) · 394 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

#!/usr/bin/perl

use strict;

use warnings;

my $filename = $ARGV[0];

my $output = $ARGV[1];

open my $fh, '<', $filename or die $!;

open my $outfh,'>',$output or die $!;

while (my $line=<$fh>) {

# body...

chomp $line;

$line =~ s/^\t([^\t\n])/## $1/g;

$line =~ s/^\t\t([^\n])/\t$1/g;

$line =~ s/^(\t*)\t([^\t\n])/$1- $2/g;

print $outfh "$line\n";

}

close $fh;

close $outfh;

print "done!\n";