How to extract embedded fonts from a pdf file using fontforge script

Question

I am trying to extract fonts from a pdf file using the following fontforge script

Open("file.pdf") file = $firstfont while ( file != "" ) Open(file) Print($fontname) file = $nextfont endloop 

This downloads only one font, but if I open the same pdf file with fontforge gui, it will display 7 fonts. Can i get help.